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Library examination routines 


MODULE Lbr_dump ( 


BEGIN 


' 
SRR AA AAA EAAAAAEEARARERAAEEAEEEA RAAT A AAA ARATE ERAAAA EERE 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 

- ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'@ QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
os TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* CORPORATION. 

'e 

'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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i ABSTRACT: 


The VAX/VMS Librarian procedures implement a standard access method 
to Libraries through a shared, common procedure set. 


i ENVIRONMENT : 
VAX native, user mode. 
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AUTHOR: Tim Halvorsen, Benn Schreiber, Bob Grosso 16-Mar-1981 
i MODIFIED BY: 
v02-003 RPG0003 Bob Grosso 15-Dec-1981 
Enhance command interpretation and help. 
Add next function. 


v02-002 RPGO002 _ _ Bob Grosso 30-Jul-1981 
Remove non-pic descriptors and add some error checking. 
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16-Sep-1984 01:48: VAX-11 Bliss-32 V4.0-7 Page 2 
Declarations 12-8001 382 93:93:99 DISKSVMSMASTER:CLBR. SRC DUMP .B32;1 . (2) | 
039 ! ZSBTTL ‘Declarations’; | 
960 i LIBRARY "SYSSLIBRARY:STARLET.L32°; ! VAX/VMS common definitions 
¢ ! REQUIRE ‘PREFIX’; ! Librarian general definitions | 
§ } REQUIRE "LBRDEF’; ! Librarian structure definitions | 
79% 1 FORWARD ROUTINE | 
795 «(1 LorS$dump_ jndonstocks. Dump the entire index in hex and ASCII 
f ; Lor$dump_ index; ! Dump the index 
7 3 1 EXTERNAL ROUT IME 
799 «1 ind_block : JSB -3: 
800 1 find” = : JSB- ! Find index block in memory 
8 01 1 LookGp cache : JSB.2 
02 1 scr$set_cursor ROSRESSING_MODE (GENERAL) 
08035 1 scr$get_screen : ADDRESSING_MODE (GENERAL), 
0804 1 scr$erase_line : ADDRESSING_MODE (GENERAL), 
0805 1 scr$erase_page : ADDRESSING_MODE (GENERAL), 
0806 1 scr$put_buffer : ADDRESSING_MODE (GENERAL), 
0807 1 scr$put_screen : ADDRESSING_MODE (GENERAL), 
0808 1 scr$set_buffer : ADDRESSING_MODE (GENERAL), 
0809 1 ots$cvt_tz_l : ADDRESSING_MODE (GENERAL), ! convert text to hex 
paiy : LibSput_output : ADDRESSING_MODE (GENERAL); ! Write to SYSSOUTPUT 
baig 1 EXTERNA 
Betz ! ortel_pentrels REF BBLOCK; ! Address of control block 
0815 1 OWN 
0816 1 vbn, 
0817 1 faostring! : countedstring bine block !XL at oferene 'XL"), 
tts 1 sesser nay | countedstring ( + aren = ite used = !xwi/"), 
0819 1 faostring countedstring (°! 'xL ! AC’), 
0820 1 faostring’ : : countedstring Cixw ix ine Kee De 
0821 1 Sountecetr sae, C''xXL IXL ‘ML OIML AFT), 
4 ¢ 1 a : counteds tring mm), § print the contents of a hash bucket 
8 1 faohashentry : counteds uy C'IxL IXL"), i print the aserees of the hash bucket tot toned by it’s cont 
0824 1 faoblock : countedstring (‘!XL xt xt XL XL ‘ML IML ! 'AF*), ! dump a Line of the block in hex and 
0825 1 faoentry : countedstring ( riyt *); ! print one Of the four longwords of a Bn F entry 
O8 : 1 BIND 
0828 1 help_desc_0 = SDESCRIPTOR (‘From SY eSinrUT. enter a single letter command with an <ESC>."), 
O8¢9 1 —-help_desc-] = SDESCRIPTOR (1? Help’ | 
0 1 hel p_desc—¢ = $DESCRIPTOR ('N (Norths move up the hash table’), 
0831 1 help_desc_3 = S$DESCRIPTOR (*S (South) move down a bucket’), | 
08 § 1 help_desc_4 = SDESCRIPTOR (°E (East) move over to the next “cache entry in current hash bucket"), 
0833 1 help_desc_5 = SDESCRIPTOR (‘W (West) move back in the Linked List of cache entries’), | 
834 1 hetp_desc_¢ = $DESCRIPTOR (‘'B jump Back fo, the first cache rot t in current bucket"), 
835 1 help_desc_7 = SDESCRIPTOR ('O return to Or ye first entry of jest bucket ‘), 
8 1 help_desc_8 = $DESCRIPTOR ('J Jump down 10 buckets in hash table’ 
1 help_desc_9 = SDESCRIPTOR (°D Display block of current cache noe Me ), 
838 1 help_desc_10 = SDESCRIPTOR (‘H Oise oy \torery header block’ 
839 1 help_desc_11 = SDESCRIPTOR (°L query for to locate in cache"), 
840 1 help_d cig = SDESCRIPTOR ('G query for a A, to get from Library and cache"), 
0841 1 help_desc_15 = SDESCRIPTOR (*X dump neXt vbn'), 
0842 1 help_desc_14 = S$DESCRIPTOR ('R Reprint — screen *), 


ss 
3 


Pare 1 
3 19 i 1 
; 118 ie 
s 11 46 1 
; 12 1 
s 121 1 
3; 1 ¢ 1 
77 ™ 1 
:; 124 ® 1 
: 125 M 2¢ 1 
; 126 855 1 
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help_desc_15 = SDESCRIPTOR ('Q Quit and clear the screen’); | 
LITERA 

first bucket = 0, ! offset to first bucket in hash | 
last_Bucket = lbr$c_hashsize/4 = 1; i Last bucket in hash table 
0 
write. creer (Line, col, ptcing) = ! write to specified position on screen 

ut screen ( fao_ buffer (str cing i string must contain fao format Line followed by fao arguem 

ite att} GTR 1 XTREN ,ZREMAINING ZFI), 
ne, co 


042000" 


1 


USWNr—OOw 
- 


NNN NOAA AAO OO OMIM FB FELL LLL LEE 
RANVSSS ISSIR IS SSVSV LUN SSE TS SEESEES 
COOoCCO 4 
2.0000 0000 
Sees SRS RO 
S ors MEW —OOONAOWM 
PIAWWINIAIAIA AAA AAAI AAAI AI AI PNP PUNO 4 2 


ono 


OOCooOoCooo°oo 
(G9 Cd Cd OD Cd Cd Cd Cd Cd CD CD CO CD. 
SN NNN NNO OO 


WONOULSWN—OO 


0880 


Be Ge Se Oe Ge Se Fe Se Fe Se Se Ge Fe Se Se SF Se Ge Se Be Se Se Se Se Se Se Fe SH Se Se Se Se Se Se Se Se Se Se Se ee Se Se Sees Setesg 
a a ka a ka ak a a ot = 2 a = = Ss 2 2a 2 


2C 54 55 50 46 49 
65 6C 67 6E& 6 it 


LBRSDUMP_INDEX 


ZSBTTL "LBRSDUMP_INDEX'; 
GLOBAL ROUTINE Lbr$dump_index (index) = 


=. the contents of the entire index structure 
to SYSSOUTPUT. 


Inputs: 


i 
' 
i 
i 
i 
index = Primary index number 
Outputs: 

None 

i 


BEGIN 
MACRO 
write (string) = 
iP eus output (fao_buffer cote oe 
ZIF XLENGTH GTR 1 XTHEN ,ZREMAINING XFI1))2; 


EXTERNAL ROUTINE 
LibSput_output : ADDRESSING_MODE (GENERAL); 


ROUT INE fao_buffer (ctrstr,args) = 


BEGI 

OWN 
desc : BBLOCK bgscSe s pind, ' Result descriptor 
buf : VECTOR (80, BYTE); ! Output buffer 
ctrstr : REF VECTOR C,BYTE), 
args : VECTOR (4); 

LOC 


AL 
faodesc : BBLOCK Cdsc$c_s_bln); 


faodesc Cdsc$w_length] = .ctrstr £0}: 
faodesc gsche pointer} = ctrstr (1); . 
desc Cdsc$w_length] = 80; ! Set up result descriptor 
desc Cdsc$a_pointer] = buf; 

$faol (ctrstr=faodesc, outlen=desc, outbuf=desc, prmlst=args); 

es desc; 


ates 
:CLBR.SRCJDUMP.B32; 1 


-TITLE LBR_ DUMP 

IDENT \V0%-000\ 

-PSECT S$PLITS,NOWRT,NOEXE,2 
4 53 59 $3 9 gp 6F 72 4 0000 P.AAB: .ASCII \from SYSSINPUT, enter a single letter co\ ; 
9 3} $9 ¢ 4 of 6 § O00F 3 
6 0 6 4 74 C OO1E 3 


Page 


4 
(3) 


: = , 
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LBR_ 16-Se 
yecz000" LBRSDUMP_ INDEX 14-Se DISKSVMSMASTER: CLBR.SRCJDUMP.B32; 1 (3 


3C 20 6€ 20 68 74 69 6} fi «ASCII \mmand with an <ESC>.\ ; 
00 99 ¢ P.AAA: .LONG 60 : 
' 4 .ADDRESS P.AAB : 
20 a, P.AAD: “ASCII \? Help\ : 
00 00 af P.AAC: LONG : 
000' 3 -ADDRESS P.AAD : 
79 8 4 P.AAF: .ASCII \N (North) move up the hash table\ : 
6 se : 
000000 78 P.AAE: <LONG 33 
00000000' orc .ADDRESS P.AAF 
20 80 P.AAH: .ASCII \S (South) move down a bucket\ 
6F BF 


-BLKB 3 


SNVINNVSOCSO PVSCSO SnWOCO 
—NMOOooo f£00°0Oo Ouooe 
oF ANNALS MWMIONM ASMLSCSO  WOWFoO 


3 

: | 

7 

| 
1, $9 ; 
§* 00 
0 ; 
0000001D QO0A0 P.AAG: .LONG 29 ; 
00000000" O000A4 -ADDRESS P.AAH : 
20 5 QOOA8 P.AAJ: .ASCII \E (East) move over to the next cache en\ ; 
6 F 00087 3 
63 4 000C6 3 
79 4 00000 ASCII \try in current hash bucket\ : 
73 8 O00DF ; 

QOOEA -BLKB 2 
00000042 BOOES P.AAI: .LONG 66 3 
00000000° O000FO ADDRESS P.AAJ i 
20 20 57 OQOOFS P.AAL: .ASCII \W (West) move back in the Linked List o\ ; 
63 61 62 00103 : 
64 65 6B 00112 3 
63 20 66 O011C ASCII \f cache entries\ 3 
Bat B -BLKB 1 

00000037 0012C P.AAK: .LONG 55 : 
00000000° 00130 eADDRESS P.AAL 3 
2 st 4 bot 4 P.AAN: .ASCII \B jump Back to the first cache entry in\ ; 
6 4 2 0143 3 
§ 20 65 00152 3 

5 63 20 Ba ac “ASCII } current bucket\ : 

° | 
00000037 Ootee P.AAM: .LONG 55 3 
00000000° 00170 ADDRESS P.AAN 3 

20 eo 4F Bolas P.AAP: .ASCII \O return to Origin; first entry of firs\ ; 
9 § $3 3183 3 
3 9 72 313 3 
20 74 ASCII \t bucket \ 3 

O1A “BLKB 3 | 

4 4 ot O1A8 P.AAO: .LONG 49 : 

0000" 901A ~ADDRESS P.AAP : | 

$0 4A pie P.AAR: .ASCII \J Jump down 10 buckets in hash table\ 3 | 

74 8 iss : 

1D -BLKB 

60 00033 108 P.AAQ: .LONG 7 3 

0 4 10C -ADDRESS P.AAR 3 

2 HH P.AAT: .ASCII \D Display block of current cache entry\ ; | 

65 a8 O1FE F 


15 oot 
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LBRSDUMP_ INDEX MASTER: CLBR.SRCJDUMP B32; 1 


Sete Se Be Be 


7 .BLKB 
a gaan ee ha 
72 62 69 6C 20 79 61 6C 70 73 69 44 ‘8 P.AAV: .ASCII \H_ Displ ib h k\ 
gg 82 8S 88 3 St Sf ff fe Be 3g 88 61 90gtt ee ee 
F ° 
00 001F QO P.AAU: .LONG 31 
20 61 20 72 6F 66 20 79 7 75 71 20 we P.AAX AReT AL a f VBN to locate i he\ 
. 3 e r r 
a So & 32 Sf && eo 2 2 ee 74 20 GE €6 b05z9 rene ffl a 
6 63 61 63 20 6€ 9 ae 
90900025 0260 P.AAW: .LONG 37 
0990000" 0264 “ADDRESS P.AAX 
20 61 90 72 6F 66 20 79 72 65 75 71 20 ¢3 4 0 98 P.AAZ: .ASCII \G query for a VBN to get from Library a\ 
6D 6F 72 66 20 74 65 67 ¢ 6F 74 20 4 4 36 0277 
61 20 79 61 72 6¢ 69 6C 20 00 86 
65 68 63 61 6 20,64 6 3 oe ee ASCII \nd cache\ 
00990000" oozer "ADDRESS P.AAZ 
62 76 20 74 58 65 6E 20 70 6D 75 64 20 20 38 002A0 P.ABB: <ASCII \X dump next vbn\ 
90000095 00280 P.ABA: .LONG 16 
00000000" 00284 “ADDRESS P.ABB 
20 65 68 74 20 74 6E€ 69 72 70 65 52 8 29 52 00288 P.ABD: .ASCII \R Reprint the screen\ 
Dipti ieanid EG PS 
00000015 00200 P.ABC: <LONG 21 
00000000" 00204 SADDRESS P.ABD 
65 6C 63 20 646 6E 61 0 74 69 75 51 20 $3 51 00208 P.ABF: .ASCII \Q Quit and clear the screen\ 
6 65 65 72 63 73 20 65 68 74 20 fe oot 00267 eee Ti oad a 
80000000" O02F8 “ADDRESS P. ABF 
.PSECT SOWNS,NOEXE,2 
000 CUR_VBN: .BLKB 
20 000 ieoeehienaays OM $9 
21 20 $8 63 6F 6C 78 65 6— 49 2F 1 000 “ASCII \!/Index block !XL at address !XL\ 
21 20 73 73 65 72 61 20 61 20 4c 38 900 
-BLKB 3 
1¢ $09 FAOSTRINGE: ss 
20 2¢ 4C 58 21 74 61 29 28 99 “ASCII \(parent = !XL, used = !XW)!/\ 
2F 21 29 20 65 7 00 ae a 
13 000 FAOSTRINGS: . 
20 20 57 58 21 21 57 58 i 08 3 “ASCII \!XW IML IXW LAC\ 
: 005C FAOSTRING4: 
20 20 57 58 21 21 7 58 21 0005D etal Tey ‘XL IXW EMEA 
4 34 $4 80 C : ' ieee : 


vo4=000° 


4c 58 21 


20 


4C 


LBRSDUMP _ INDEX 


4C 


58 


ws 
on 


58 21 


21 20 


—o 


mr 
o— 


04 AE 


20 


20 


ern 
oo 
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0000" CF 25 000 
08 


Payvroun 
MmroOmMmnros 


1$-dap-1 


14-Sep-1 
13 00070 FAODMPBLK: 
1 71 att 
0 G09 
¢ 0 FAOHASH: .BYTE 
085 “ASCII 
0091 -BLKB 
07 00094 FAOHASHENTRY: 
1 90095 “ASCII 
4 0009C FAOBLOCK: 
.BYTE 
31 0090 “ASCII 
0 O00AC 
4C 00088 
b00¢1 -BLKB 
04 000C4 FAOENTRY: 
“BYTE 
21 000C5 “ASCII 
0009 -BLKB 
OOOCC DESC:  <BLKB 
00004 BUF -BLKB 
HELP_DESC_0= 
HELP~DESC_1= 
HELP”DESC@¢= 
HELP-DESC_3= 
HELP~DESC_4= 
HELP~DESC_5= 
HELP~DESC6= 
HELP~DESC_7= 
HELP~DESC_8= 
HELP~DESC_9= 
HELP~DESC_10= 
HELP~DESC_11= 
HELPDESC_1¢= 
HELP~DESC_13= 
HELP~DESC_14= 
HELP~DESC~15= 
-EXTRN 
*EXTRN 
EXTRN 
EXTRN 
EXTRN 
*EXTRN 
-EXTRN 
.PSECT 
0004 00000 FAO_BUFFER: 
WORD 
HOVAB 
§ 000 SUBL 
C 2 O00, mOv7Bu 
1 § OF ADDL 
F 9B 0001 MOVZBW 
A2 9€ 00018 MOVAB 
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IML IML IML IML LAFN 
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we 
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‘XL !XL\ 


36 
NIML IML IML IXL IXL IXL IXL EXEL SAFN 


ARV 
a VvuVvVVVVVVVVVVVUVUUDU 
se fff #& # © *® * © © © &@ @ 
> 
& 
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SCODES ,NOWRT ,2 


Save R2 
DESC, R2 


#8, §P 
acfRstR FAODESC 

#1, CTRSTR, FAODESC+4 
#80, DESC 

BUF, DESC +4 
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LBRSDUMP_ INDEX if3eert 38 93:39:87 | i SSumemAgTeRscLOR. SRC TDUMP, a32;1 P89 (35 ) | 
1 PUSHAB ARGS : 0898 | 
PUSHL R : 
PUSHL R ‘ : 
PUSHAB FAODESC : 
000000006 00 CALLS #4, SYSSFAOL ; 
50 MOVAB DESC, RO : 0899) 
0 ET ; 0900 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0000 
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=§00 dump _block2 12286871382 93:99:95 DL SKSVMGMASTERSCLOR. SRCSDUMP.B32; 1 . (4) | 
3 176 90) ZSETTL ‘dump_block2'; 
; 178 $08 ROUTINE dump_block2 (index, vbn) = 
3; ir 904 BEGIN | 
3 4 » B82 LOCAL : 
Ps 1 entry, 
; 7 ¢ 90 index_desc: REF BBLOCK, ! Index descriptor 
: \37 88 ; index_block: REF BBLOCK; ! Index block address 
: 185 910 index_desc = sarap control Clbr$l_hdrptr] + Lhd$c_idxdesc 
; 196 ap + U.Index-1) *idd$c_Tength; 
: 
3 138 a318 perform (find_index (.vbn, index_block)); 
; 190 0915 write(faostring!,.vbn,.index_block); 
; «191 Pp oats write(faostring 
3 135 P 091 . index_block p indexSt perened. 
3 bt 24h -index_block Cindex$w_used]J); | 
; 195 0920 entry = .index_block+index$c_entries; 
; 138 $353 ? WHELE tientry [SS .index_block+index$c_entries+. index_blockLindex$w_usedJ-1) DO 
: 198 0398 4 MAP entry: REF POLOck: 
; 199 0924 4 IF .index_desc Lidd$v_ascii] ! If ASCII keys, 
: 200 pose 4 THEN 
3 (UT P 0926 4 write(faostring3, 
3 $06 P 8356 4 sentry - .index block, : 
; a P0928 4 -entry Cidx$l_vbnj, .entry Cidx$w_offset], 
: 204 034 4 entry Cidx$b_keylen]) 
3 soe 0930 4 LSE 
; 206 P 0931 4 write(faostring4, 
; 207 Pe ane 4 -entry - .index_block, 
; 208 P0933 4 -entry Cidx$l_vbn], .entry Cidx$w_offset], 
; 209 0934 4 sonery idx$l_keyid]); 
; 210 0935 4 entry = .entry + idx$c_rfaplsbyt + .entry Cidx$b_keylen]; 
; 21 0936 D; 
; sig 0937 
; 2) 0938 entry = .index_block+index$c_entries; , . 
; 214 0939 WHILE (.entry CSS . index_block+index$c_entries+. index_blockL index$w_usedJ-1) dO 
; $i? 0940 4 BEGIN 
: 216 941 4 MAP entry: REF BBLOCK; 
3 au 942 & IF .entry Cidx$w_offset] EQL rfa$c_index ! If subindex, 
; 218 0945 4 THEN 
3; 219 944 & dump_block2(.index, .entry Cidx$l_vbn]); 
: 220 945 4 entry = entry + idx$c_rfaplsbyt + .entry Lidx$b_keylen]; 
: 221 nee END; 
3 $$ 94 
; 22 0948 3 RETURN true; 
3; 224 0949 2 END; | 


OFFC 00000 DUMP_BLOCK2: 
“WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 0903 
59 C9 AF 9E 00002 MOVAB FAO_BUFFER, RO ; 


F 15 
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iba=obo" dump _block2 18: when 1384 9}: $8: 0 DISKSVMSMASTER:CLBR.SRCJDUMP.B32;1 (4) | 
8 000000006 90 9 i nOVAB LIBS$PUT_OUTPUT, R8 ; 
F 00 06 CF D 19 MOVL LBRSGL_ CONTROL, R1 0910 
§ A B14 4 19 MOVAQ a19cn{ {R03 INDEX_DESC ; 
7 oosc =¢ 3 3 MOVAB 188(R7), INDEX DESC : 
1 6E VAB INDEX BLOCK, RT + 0913 
50 08 A p 0 6 MOVL VBN, R : 
009 6 A BSBW FIND_INDEX : 
01 Fs 0 p BLBS = STATOS, ; 
53 6 DO 09 1 1$: MOVL § INDEX_BLOCK, R3 + 0915 | 
DD “PUSHL R3 3 
08 Ac BD 00 PUSHL VBN : 
0000' CF 9F 000 PUSHAB FAOSTRING! : 
69 : FB 90D CALLS , FAO_BUFFER 
8 01 FB a942 ALLS #1, LIB$PUT_OUTPUT : 
4 $3 3C 0004 MOVZ2WL (RS), : 0918 
4 dD 00048 PUSHL R4 : 
02. A3 DD 0004A PUSHL 2(R3) : 
0000' CF 9F 0004D PUSHAB FAOSTRING : 
as BF Ob Dose oo Ee etmcanmlien 
68 01 FB 00056 CALLS #1, LIBSPUT_ OUTPUT ; 
56 oc a3 3 00059 MOVAB 12(R + 0920 
32 36 D 9005p MOVL 6, ENTRY : 
33 0B asa i 90060 2$: MOVAB ITER) ERS, RS ; 0921 
34 18 00068 BGEG ye : 
50 52 53 C3 O006A SUBL3 -R3, : 0929 
11 67 €9 0006 BLBC CHinex wpEsC) + 0924 
06 A2 SF 00071 PUSHAB 6(ENT : 0929 
7E 04 A2 3C 00074 MOVZWL 4(EN NIRY) -(SP) ; 
62 DD 00078 USHL CENTRY : 
50 DD OO07A PUSHL R ; 
0000' CF 9F 9907¢ PUSHAB FAOSTRING3 ; 
OF 11 00080 BRB 4$ : 
06 =A bp 00082 3$: PUSHL 6(ENTRY) + 0934 
7E 04 Ad 3¢ 008 MOVZWL 4CENTRY), -(SP) ; 
$ DD 00089 PUSHL CENTR : 
pp 0088 PUSHL R : 
0000" CF 9F 0008D PUSHAB FAOSTRING4 : 
. Ms GR HBR SES pe Fal sures | 
$5 06 A? 9K 00099 Sodan SCENTED ROT ‘9935 
52 8S nose H 0090 MOVAB (RO)LE Vitae). ENTRY aaa 
52 55 D0 5 AG 5$: MOVL 6, ENTRY : 0988 
5 ; Dt O07 6S: cMPL NfRY, R5 ; 0939 
FFFF SF 04 As 8] AC CMPW 30s (ENTRY), #65535 + 0942 
09 12 0008 BNEQ 7$ ; 
62 DD 00084 PUSHL (ENTRY) > 0944 
04 aC DD 086 PUSHL INDEX ; 
32. Ad 02 FB 000B CALLS #2, DUMP_BLOCK2 ; 


ce 4 


15 
ibe=boo” dump _block2 18360-1984 93:98 8F Ud mGmaStencclga sacdoump.asz;1 "2% ¢d} 
en ee oe ce ‘bee 
50 1 BO C8 8S: MOVL #1, RO + 0948 
4 000CB RET + 0949 


; Routine Size: 204 bytes, Routine Base: SCODE$ + 0032 


Ls 


50 


POPOPIPONPOPUNININININPININoPOPoPo Nonny 


~ SNA AAA AAA AAA MAMMA 
SRN SS SVS SE SR oS Saeko ~o 


=$0" 


] 
H 15 
16-Sep-1984 01:48:07 VAX-11 Bliss-32 V4.0-74 Page 12) 
dump _block 12236871382 93:95:97 DLSKSVMGMASTERSCLBR. SRC IDUMP.B32; 1 (5) | 
9 ZSBTTL ‘dump_block’; | 
9 ROUTINE dump_block (index, vbn) = 
9 BEGIN 
954 3 LOCAL | 
955 index_desc: REF BBLOCK, ! Index descriptor 
228 index_block: REF BBLOCK; ! Index block address 
328 index_desc = -LorSqt control Flbest hdrptr] + Lhd$c_idxdesc 
494 + (.Index-1) *idd$c_Tength; 
30) perform (find index (.vbn, index_block)); | 
968 write(faostring!,.vbn,.index_block); 
964 write(faostring2 
P 0965 . index_block fp index$t parent]. 
B30 -index_block Lindex$w_used]); 
0968 INCRU entry FROM .incex_block+index$c_entries 
969 TO . index _block#index$c_entriés+.index_block Cindex$w_usedJ-1 
970 BY idx$c_Tength + .index_desc Lidd$w_keylen] 
0971 DO 
0972 4 BEGIN 
0973 4 MAP entry: REF peLocK: 
0974 4 IF index desc Lidd$v_ascii] ! If ASCII keys, 
0975 4 THEN 
P 0976 4 write(faostring3, 
P 0977 4 entry - .index_block, 
P 0978 4 -entry Cidx$l_vinJ, .entry Cidx$w_offset], 
0979 4 entry Cidx$b_keylen]) 
0980 4 _ Se 
P 0981 4 write(faostring4, 
P 0982 4 entry - .index_block, 
P 0983 4 -entry Cidx$l_vbn], .entry Cidx$w_offset], 
0784 4 eentry Cidx$l_keyid)); 
4H END; 
$98 INCRU entry FROM .index_block+index$c_entries 
0988 TO .index_block?index$c_entriés+.index_block Cindex$w_usedJ-1 
0989 BY idx$c_Tength + .index_desc Cidd$w_keylen] 
0990 dO 
0991 4 BEGIN 
992 4&4 MAP entry: REF BBLOCK; 
993 4 IF .entry Cidx$w_offset] EQL rfa$c_index ! If subindex, 
994 4 THEN . 
0995 4 dump_block(.index, .entry Cidx$l_vbn]); 
14 END; 
99 
0998 RETURN true; 
0999 END; 


OFFC 00000 DUMP_BLOCK: | 
WORD Save R2,R3,R4,.R5,R6,R7,RB,R9,R10,R11 ; 0952 


De Oe Be Be Oe Be Oe Se Be Be Oe Be Be Se Se Se Be FH SH He Ge Se Be SESH TH Se Se Be Oe SH Se SH Oe Se Se Se Se Se Se Se Se Se Se Se ae SH Se Se ee Se See Se Se seas 


LBR_ 1b-5¢ -Sep-1 7 VAX-11 Bliss-32 V Page 13 
rites dump_block 1 et 7 9}: $3: 9 DISKSVMSMASTER: VaR” She DUMP .B32;1 an 
FEF F 9£ MOVAB FAO_BUFFER, R8 : : 
3 000008006 9 ’ a09 OVA LIBSPUT_OUfPUT, R7 : : 
f 00006 CF »D a1 MOVL LBRSGL_ CONTROL, R1 + 0958 : 
0 4 Ac p 16 MOVL : 0959 ; 
4 A B140 7E OOO1A MOVAQ ate INDEX_DESC : F 
4 OOBC C4 9E OOOTF MOVAB 188(R4), INDEX DESC : : 
51 6— 9 4 MOVAB INDEX X BLOC eet 3; 0961 ; 
50 08 AC p 027 MOVL VBN, R : ; 
00996 0 B BSBW FIND_INDEX : ; 
L ATOS, : : 
01 : E BLBS STATOS, 1$ ; 
53 $& 0 0 1$: MOVL § INDEX_BLOCK, R3 > 0963 : 
DD 999 PUSHL R3 : ; 
08 AC DD 00037 PUSHL VBN : ; 
0000' CF 9F 990 A PUSHAB FAOSTRING1 : 
ss 8) bb Oboe are oe 
67 01 FB $0948 ALLS #1, LIBSPUT_OUTPUT : 
52 63 3¢ 00046 MOVZWL tre R2 + 0966 
é DD 00049 USHL R2 ; 
02 A’ DD 00048 PUSHL 2(R3) : 
0000" CF 9F 0004 PUSHAB FAOSTRING2 F 
xe 85 OB 000s BUSH RO" igi 
67 01 FB 00057 CALLS ab)thsy OUTPUT : 
56 OB A243 9E OO05A MOVAB Ter + 0969 
en et aa pe 
52 0c AS 9 90066 MOVAB eiR3), ENTRY : 
50 52 3g C3 0006C 2$: SUBL3 3, ENTRY, RO : 0979 
11 64 «£9 90070 BLBC (INDEX DESC), 3$ : 0974 
06 A2 9F 0007 PUSHAB 6(ENTRY) : 0979 
7E 04 A2 3C 00076 MOVZWL 4 (ENTRY), -(SP) : 
$8 DD 9007A PUSHL (ENTRY) : 
50 DD 0007¢ PUSHL RO : 
0000" CF 9F O07 PUSHAB FAOSTRING3 ; 
OF 11 0008 BRB 4$ ; 
06 A po 0084 3$: PUSHL  6(ENT + 0984 
7E 04 A2 3C 999 7 MOVZWL 4 (EN NIRV) -(SP) : 
62 DD 00088 USHL  (ENTR ; 
5 pd 08D PUSHL RO ; 
0000' CF 9F OB PUSHAB FAOSTRING4 F 
68 A FB 3 4S: CALLS >, FAO_BUFFER : 
67 1 FB it CALLS #1, LIBSPUT _OUTPUT : 
52 ae 0098 ADDL2 RS. ENT : 0968 
56 : D1 00 Hi 5$ CMPL  _~—s ENTRY ; 
C9 1B OOOA BLEQU 2$ : 
52 0c A % 90a MOVAB Ream. ENTRY > 0989 | 
15 1 A BRB 8$ ; 
FFFF 6 SF 04 A2 81 OAD 6$: CMPW 380s @ (ENTRY), #65535 ; 0993 | 
OA 12 OOOAF BNEQ 7$ : 
62 0D 00081 PUSHL (ENTRY) ; 0995 | 
04 aC DD 00083 PUSHL INDEX ; 
OOFE C8 02 FB 00086 CALLS #2, DUMP_BLOCK ; 


Kk 15 


main body of LBRSDUMP_INDEX 1ergeb71382 Phi s5i SF NSU Bhas 


Wn 


uw 


tt et ts a — a — >) > —s _ 2s — > _ 2s — 2d 2 4 2 2 


N—OOONOUS UN -O0@ 


SSLEARANLSSE 


rRroror 


ZSBTTL ‘main body of LBRSDUMP_INDEX'; 
' 


; Main body of Lbr$dump_index procedure 


LOCAL 
ndex_desc: REF BBLOCK; ! Index descriptor 
index_desc = Lorde co contr \ of best engehs, + Lhd$c_idxdesc 
dex- dgsc_Te Ten 
IF .index_desc tieaét nybn tau 
RETURN true; ! return immediately 
if z Inden_dese Cidd$v_varlenidx] 
perform(dump_block2 (.index, .index_desc Cidd$l_vbnJ])) 
perform(dump_block (.index, .index_desc Cidd$l_vbn])); 


RETURN true; 


"If empty index, 


1 END; ! Lbr$dump_index () 
0000 00000 .ENTRY LBRSDUMP_INDEX, Save nothing 
51 00006 CF DO 00002 MOVL LBRSGL _CONTROL, R1 
50 4 AC DO 00007 MOVL _—IND 
51 0A 8140 7E 00008 MOVAQ ai ocnt (R03, INDEX_DESC 
51 00BC C1 9E 00010 MOVAB 188(R1), INDEX_DESC 
50 04 «Al 06 00015 MOVL 4 (INDEX_DESC), 
1D 13 00019 BEQL 
0c 61 92 E1 00018 BBC #2, (INDEX_DESC), 1 
0 DD 0001F PUSHL RO 
04 AC DD 00021 PUSHL INDEX 
FEGG OCF 02 FB 00024 CALLS #2, DUMP_BLOCK2 
OA 11 00029 2$ 
50 DD 00028 1$ PUSHL RO 
04 AC DD 00020 PUSHL INDEX 
FFOS =CF 98 FB 000 CALLS He. une BLOCK 
93 50 £9 999 5 a8: BLBC = STA t$ 
0 01 DO 00038 3$: MOVL #1, "ho" 
04 00038 4$: RET 


60 bytes, Routine Base: S$CODE$ + O1C5 


3; Routine Size: 


Re CLBR. OSRCSDUMP. B32;1 


| 


Be Se Be Ge Se Se Se Se Se Ge Se Ge Se Ge Ge FH Se Ge Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Fe Se Se oe Ge Sees 


15 
16-Se 1984 01:48:07 VAX=11 Bliss-32_ V4.0-74 P 16 
107360-1 984 93:99:9) DT SKSVMEMASTERSCLOR. SRCSDUMP..832; 1 neo (7) 


<r 


L ae 

vOe=000" LBRSDUMP_INDEXBLOCKS 

ZSBTTL "LBRSDUMP_INDEXBLOCKS'; 
GLOBAL ROUTINE Lbr$dump_indexblocks (index) = 


— 


oume ice entire index structure in both hex and ASCII 
° 


aay output (fao_buffer sate ine 
ZIF ZLENGTH GTR 1 2THEN ,ZREMAINING 2F1))2; 


EXTERNAL ROUTINE 
LibSput_output : ADDRESSING_MODE (GENERAL); 


ROUTINE fao_buffer (ctrstr,args) = 
BEGIN 


8 SSOUTPUT. 
09 

0 

4 i Outputs: 

g None 

8 ee 

3 

0 BEGIN 

1 MACRO 

¢ 2 write (string) = 
i 

5 

6 

7 

8 


NOUSWN OOO 


desc : BBLOCK bgscSe s.bln], ! Result descriptor 
buf : VECTOR (80, BYTE); ' Output buffer 
ctrstr : REF VECTOR C,BYTE), 
args : VECTOR (4); 
LOCAL 
faodesc : BBLOCK Cdsc$c_s_bin]; 


faodesc Cdsc$w_length] = .ctrstr (0); 
faodesc Cdsc$a_pointer] = ctrstr (1); 
desc Cdsc$w_length] = 80; ! Set up result descriptor 
Sese dsc$a_pointer] = buf; 
faol (ctrstr=faodesc, outlen=desc, outbuf=desc, prmlst=args); 
os desc; 


a a a a 8 = = 8 2 a ot 2 as 2 2 a Ye 


OOCCCOCCCO 
FESSSESSSSESRRRRRRRARE RRR RE RRR ROMO 


ESSSSESSE SGI LORI AORE LEE EE RE RE aa WN —"OOONOUSwW 


FEFESEEE 


RWW WIN WI WII NII III RPOPUPONUPONINIDD 2 2 2 


| 
7 
1 
! 
Inputs 
; index = Primary index number 
1 
i 
' 
| 


-PSECT SOWNS,NOEXE,2 


pote DESC: .BLKG 8 
0012C BUF: -BLKB 80 


"15 
LBR_ 16-Sep-1 7 —‘*VAX-11_ BLiss-32_v4.0-74 fee 3 
vbe=000" LBRSDUMP_INDEXBLOCKS eee eee Ta ea ee NT ealSteae cl SaoskeSoune.es2;1 2% ch 
LPSECT $CODES,NOWRT,2 
0004 00000 FAO_BUFFER: 
WORD 


7 
) 


~ 


. sexe R2 : 1051 
52 0000' ce i: 000 MOV DESC QF : 
5E 8 000 SUBL ; 
&E 06 BC 98 000A MOVZBW actasrn FAODESC + 1063 
04 AE 04 AC 1 O0E ADDL CTRSTR, FAODESC+4 + 1064 
6 50 «BF SB 014 MOV ZBW +8, C + 1065 
046 =A 08 A2 9E 00018 VAB_ BUF, DESC+4 + 1066 
AC 9F 0001D PUSHAB ARGS + 1067 
3 DD 99 9 PUSHL : 
DD PUSHL : 
OC AE 9F 000204 PUSHAB FAODESC ; 
000000006 90 04 £B 90 7 CALLS #4, SYSSFAOL : 
0 62 9E 0002E MOVAB DESC, RO + 1068 
04 00031 + 1069 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0201 


<r 


en —_ + 


15 
SgcIStt SUGGNNE | BDIARARHERE! 


4.0-74 
dump _wholeblk2 DISKSVMSMASTER: CLBR.SRCJDUMP.B32;1 


8 q ZSBTTL ‘dump_wholeblk2'; 
7 ROUTINE dump_wholeblk2 (index, vbn) = 
7 BEGIN 
74 LOCAL | 
4 75 ntry, 
5 7 ndex_desc: REF BBLOCK, ! Index descriptor 
2$ rs index block: REF BBLOCK; : Index block address | 
58 07 index_desc = .lbr$gl control ClorSl_hdrptr] + Lhd$c_idxdesc 
4 pay + T reseec i aldase Tongeke 2 
2) OR perform (find_index (.vbn, index_block)); 
re 084 write(faostring] “ybo. index block); 
085 3 INCRU i FROM 0 10.511 BY 16 BO | 
65 P Bae erties "qoenet, 
66 P 108 index block [.{+12,0432,0], ; index block C,i98,0.32,01. | 
7 P 1088 -index-block £.i+4,0 2.61. .index_Glock C.i,0,$2.0. 
68 089 16, index_block €.1,6,0.03°); 
370 091 entry = .index_block+index$c_entries; 
71 O36 we | peaked Css  index_block+index$c_entries+. index_blockl index$w_usedJ-1) DO 
375 94 MAP entry: REF PaLOSK: 
2 95 IF index desc CiddSv_asc ii] ! If ASCII keys, 
6 P 109 write(faostring3, 
7 4 9 entry - .index 


° block, 
eentry FidxSt vbnj,_.entry Cidx$w_offset], 
entry Cidx$b_Keylen)) 


write(faostring4, 
entry - .index_block, 
eentry Cidx$l_vbnj, .entry Cidx$w_offset], 
-entry Cidx$l_keyid)); 
gnery = .entry + idx$c_rfaplsbyt + .entry Cidx$b_keylen); 


IN 
ooo 
vvuv 
ee ee ee ee ee ee eee ee ee ee ee eee 


Co G0 00 C9 CO Co 
Ny tert herd 4 
a a dk dd td od td = I OOO OOO 


Se 


entry = .index block+index$c_entries; : 
ae SS entry Css  index_block+index$c_entries+. index_blockL index$w_used]-1) dO 


MAP entry: REF BBLOCK; : 

i gentry Cidx$w_offset] EQL rfa$c_index ! If subindex, 
dump_wholeblk2(.index, .entry Cidx$l_vbn]); 

aosry = .entry + idx$c_rfaplsbyt + .entry Cidx$b_keylen]; 


SEANLESS 


oOo 
@ 


Pee we rr or ot or al or er rr or oo oT or 


AAA AA. AAAI A AA ANA ANAA AAAI 


SOONOUEWN OC OONOU EWN — co~ 


SENS 


RETURN true; 
END; 


OFFC 00000 DUMP_WHOLEBLK2: 


—_—_— eo ee OU A ee ee ee Ee Se ee ee ee NS ee ee ee ee een 


16 
LBR_ 16-3 1984 01:48:07 YAX=11 Bliss-32 V4.0-74 P 19 
vO0=000" dump _wholeblk2 1 =33b-1 $8e 93399:9 DISKSVMSMASTER: CLBR.SRCIJDUMP.B32; 1 aa (8) 


sw oe ford Save R2,R3 .Ré R5,R6,R7,RB,RI,R10,R11 : 1072 
5 ; 
37 000000606 00 ; $008 MOV LIBSPUT_OUfPUT, R7 ~ ; 
E 4 C2 000 SUBL2 #4, S$ : 
1 00006 CF 00 0001 MOVL  LBRSGL_CONTROL, R1 : 1079 
0 Ss A p 1 MOVL INDEX, -R + 1096 
4 A B140 7E 0001 MOVAQ 910¢R1 )CROJ INDEX_DESC : 
4 00BC 6 3 3 MOVAB 188(R6), INDEX DESC ; 
1 6E MOVAB INDEX_BLOCK, RT 3; 1082 
50 08 AC p 0026 VL —sVBN : 
00096 OO2A BSBW FIND_INDEX : 
01 5 F Op¢8 BLBS STATOS, 1$ $ 
4 00 RET 3 
53 66 DO 00031 1$: MOVL § INDEX_BLOCK, R3 > 1084 
DD 000 PUSHL R3 ; 
08 AC DD 000 PUSHL VBN : 
0000" CF 9F 00039 PUSHAB FAOSTRING1 : 
68 03 FB 9003p CALLS #3, FAO_BUFFER : 
0 ppd 00040 PUSHL RO ; 
67 01 FB 00042 CALLS #1, LIBS$PUT_OUTPUT : 
3¢ D4 0004 om + 1085 
6243 9F 00047 2$ PUSHAB (1)CR3 + 1089 
19 DD O004A PUSHL #16 ; 
6243 9F 0004C SHAB (1) CR3J ; 
9 DD 0004F PUSHL a(SP)+ ; 
04 A243 OF 90051 PUSHAB = 4(1)CR3) ; 
9 DD 00055 PUSHL a(SP)+ ; 
08 A243 OF 90057 PUSHAB 8(1)CR3] ; 
9 DD 00058 PUSHL a(SP)+ : 
OC A243 9F 0005D PUSHAB 12(1)CR3J ; 
9E DD 00061 PUSHL a (SP)+ : 
0000" CF 9F 00063 PUSHAB FAODMPBLK : 
68 07 FB 00067 CALLS #7, FAO_BUFFER ; 
50 DD 0006A PUSHL RO ; 
67 01 FB 0006C CALLS #1, LIBS$PUT_OUTPUT : 
52 10 CO 0006F ADDL2 #16, 1 ; 
QOOOOO1FF 8F 52 D1 00072 CMPLSsédTy{,:«#S311 : 
c¢ 1B 0007 BLEQU 2 ; 
55 oc A oe 00078 MOVAB 12(R3) RS : 1091 
52 55 0007F MOVL RS, ENTRY ; 
50 63 3¢ 00082 3$ MOVZ2WL (R%), RO > 1092 
54 0B A043 9E 0008 MOV 11(RO)CR3], R4 : 
54 32 DI 000A cHPL ENTRY, RG : 
50 52 34 a Godse SUBL3 +e ENTRY, RO > 1100 
11 66 £9 0095 BLBC (INDEX DESC), 4$ : 1095 
06 A2 9F 00096 PUSHAB 6(ENTRY) : 1100. 
7E 04 A2 3¢ 00099 MOVZWL 4(ENTRY), -(SP) : 
62 DD 0009D PUSHL CENTRY) F 
50 DD 0009F PUSHL R ; 
0000" CF OF O04} PUSHAB FAOSTRING3 ; 
F 11 OOOA BRB 5$ : 
6 A pp OA7 4$: PUSHL 6(ENTRY) > 1105 
7E 4 A2 3C OOOAA MOVZWL 4(ENTRY), (SP) : 
62 DD 000A USHL CENTRY? ; 
50 DD 0008 PUSHL R : 
0000' CF 9F 000B2 PUSHAB FAOSTRINGS : 


LBR 16-50 Sep-1984 7  ——-VAX-11 Bliss-32 V4.0-74 Page 20 
yoa=000" dump _wholeblk2 1 730071382 93; $8: 9 DISKSVMSMASTER: CLBR.SRCJDUMP.B32; 1 . (BS 
68 95 FB 086 5$: CALLS if FAO_BUF FER F 
7 01 FB 8, CALLS LIBSPUT OUTPUT ; 
0 06 A 3A 0B MOVZBL écEntay RO + 1106 
2 A04 9 ¢ MOVAB (RO) CENFRY ENTRY eae 
52 : DO ites $$: MOVL R5, ENTRY : 1109 
54 52 D1 O00CC 7$: CMPL NTRY, R4& + 1110 
1¢ 18 OOOCF BGEQ : 
FFFF =F 04 Ag B1 00001 CMPW 3s QCENTRY), #65535 + 1113 
09 12 00007 BNEQ : 
62 DD 90009 PUSHL (ENTRY) + 1115 
04 AC DD 000DB8 PUSHL INDEX F 
32 A8 02 FB BRS CALLS ad _WHOLEBLK2 é 
50 06 Ag 9A OO0E2 8S: MOV ZBL StENT R + 1116 
52 07 A042 9E 000E6 MOVAB § (RO) CENTRYD, ENTRY : 
DF 11 OO0EB BRB is + 1110) 
50 01 DO OO0ED 9S: MOVL , RO + 1119 
04 000F0 RET + 1120 


; Routine Size: 241 bytes, Routine Base: S$CODE$ + 0233 


D 16 
1er8ep=18ke 92:49:97 DERKSUMHASTERS CUBR  SRCSDUMP.832;1 2% (3) 


dump _wholebLk 


$8) ZSBTTL ‘dump_wholeblk'; 

Z : pout ine dump_wholeblk (index, vbn) = 

405 Loch 

rt’ ndex_desc: REF BBLOCK, ! Index descriptor 
tee index, “block: REF BBLOCK; ! Index block address 


index_desc = laren control Clbr$l_hdrptr] + Lhd$c_idxdesc 
+ (.Index-1) *idd$c_Tength; 


perform (find_index (.vbn, index_block)); 
Foran 1 Paes ‘on yon. . Index block); 
INCRU i F 16° 


16 Bo 
e Rt. Ait blk 
P -index_ Lock S Bets “1e}e 0,32,0), .index_block C.i+8,0,32,0], 
Pp . index block 6,32 $3 4" “iene: Block C.i 1,0,32.0J, 


16, index Tak’ C. 7. 63 0,0 


INCRU entry FROM .index_block+index$c_entries 
index block? index$c _entriés+.index_block Cindex$w_used]-1 
BY idx$c length + .index_desc Lidd$w_keylenJ 


WN — SO CONOUESWN—"OOONOUSWN—O”O 


Po or at rae 
LUWUAIRINRNNNNNNN = 3s 5G 


BeBe Se Ge Be Ge Se Se Se Ge Se Ge Fe Se Se Se Ge Ge Be Se Ge Se Se Se Se Be Be Se Se Ge Ge FH Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Ss Oe Se Sees 
ee em ee ed ed od ed dd od sd 
ee ee ee ee ee ed ee ed ed ed ed 
SND DS DD DDD DD TTT BS Be BS BB BB EWN rppornopornorornory 


NRO ODNAWUES WD $$ O ODNAUES WIN 0 OBNAUE WN" OOONOAOUSWN OO OONOULS WR 


3D 
4 BEGIN 
& MAP entry: REF BB 
? - index_desc riddsv. ascii] ! If ASCII keys, 
Pp 4 write(faostring3, 
P 4 entry - .index 
Pe 4 sentry Cidx$l i sentry Cidx$w_offset], 
? +o entry Cidx$b “gerkansl 
P 4 write(faostring4, 
35 P 4 sentry - .index_b 
36 Pp 4 entry Cidx$l wm Sentry Cidx$w_offset], 
37 4 -entry Cidx$l—keyid)); 
t3 ; END; 
440 ; INCRU entry FROM .index zp locks index$c entries 
441 0 .ingex block? index$c wentriést+.index_block Cindex$w_usedJ-1 
44 ; BY idx$c_Tength + .index_desc Lidd$y_keylen] 
44 DO 
444 4 BEGIN 
445 4 MAP entry: REF BBLOCK 
as 2 A at Cidx$w offset] EQL rfa$c_index ! If subindex, 
448 4 dump_wholeblk(.index, .entry Cidx$l_vbn]); 
ret ; END; 
451 RETURN true; 
452 2 END; 


16 

LBR_DUMP 16-Sep-1984 01:48:07 VAX-11 Bliss=32_ V4.0-74 P 
y04=000 dump _wholeblk 1073601984 93:99: 9 DT SKSVMSMASTER- LOR. SRCIOUMP.832; 1 ee (35 
OFFC 00000 oT 


5 FED? CF 9E 000 MOVAB FAO BUFFER. Rb : 

3 000000006 09 $609 MOV LIBSPUT_OUfPUT, R7 : 

a 4 ¢ OOF SUBL 4, SP : 

1 00006 CF 00 0001 MOVL  LBRSGL_CONTROL, R1 : 1129 
50 4 AC ; 016 MOVL INDEX, "R + 1130 
54 A B140 7E OOO1A MOVAQ @10(R1)CROJ, INDEX_DESC : 

54 0OBC C4 9E OOODTF MOVAB 188(R4), INDEX DESC ; 
51 6E 9E 00024 MOVAB INDEX BLOCK, RT + 1132 
50 08 Ac p 0027 MOVL VBN, RO : 
00906 0028 BSBW =F IND_INDEX ; 
01 E 002E BLBS =‘ STATOS, ; 
4 00031 RET : 
53 66 DO 000 Q 1$: MOVL § INDEX_BLOCK, R3 + 1134 
DD 0003 PUSHL R3 : 
08 AC DD 00037 PUSHL VBN : 
0000" CF 9F OO003A PUSHAB FAOSTRING!1 : 
. 68 03 FB 0003E CALLS #3, FAO_BUFFER : 
50 DD 00041 PUSHL RO ; 
67 01 FB 00043 CALLS #1, LIBS$PUT_OUTPUT : 
38 D4 00046 1 eS : 1135 
6243 9F 00048 2$: PUSHAB (1)CR3] : 1139 
19 DD 00048 PUSHL #16 ; 
6243 9F 0004D PUSHAB (1)CR3] : 
96 DD 00050 PUSHL a(SP)+ ; 
04 A243 9F 00052 PUSHAB 4(1)CR3) ; 
i DD 00056 PUSHL  @(SP)+ : 
08 A243 9F 00058 PUSHAB 8(1)CR3) : 
96 DD 0005¢ PUSHL a(SP)+ : 
OC A243 9F 0005E PUSHAB 12(1)CR3) : 
9E DD 00062 PUSHL a (SP)+ : 
0000" CF 9F 00064 PUSHAB FAODMPBLK : 
68 07 FB 00068 CALLS #7, FAO_BUFFER ; 
50 DD 00068 PUSHL RO : 
67 01 FB 0006D CALLS #1, LIBS$PUT_OUTPUT : 
52 10 ¢O 00070 ADDL2 #16, I ; 
QOO0001FF  8F 52 D1 00073 MPL si, #511 ; 
CC 1B 0007A LEQU 6 2$ ; 
50 63 3C 0007C MOVZWL (R3), RO + 1142. 
56 0B A043 9E O007F OVAB. 11(RO)CR3], R6 ; 
55 02 A& 3C 00084 MOVZWL 2CINDEX_DESC), R5 > 1143 
55 06 CO 00088 ADDL2 #6, R5 : 
52 oc A H 90088 MOVAB 12(R3), ENTRY F 
32 11 OO08F BRB 6$ : 
50 52 53 ¢3 00091 38: SUBL3 3, ENTRY, R + 1152 
11 64 £9 00095 BLBC (INDEX DESC), 4$ : 1147 
06 A2 OF 90098 PUSHAB 6(ENTRY) : 1182 
7E 04 A2 3C 0009B MOVZWL 4(ENTRY), (SP) : 
62 DD 0009F PUSHL (ENTRY) ; 
50 DD OOOA1 PUSHL RO ; 
0000" CF 9F 000A3 PUSHAB FAOSTRING3 : 
OF 11 O00A7 BRB 5$ : 
06 A po OOA9 4S: PUSHL 6(ENTRY) : 1157 
7E 04 Ad 3C OOOAC MOVZWL 4(ENTRY), (SP) : 
62 DD 000B0 USHL (ENTRY) : 
50 DD 000B2 PUSHL RO 


F 16 

16-Sep-1984 01:48:07 VAX-11 Bliss-32 V4.0-74 Page 23 

dump _wholebLk 1e-Sep-19 4 94:99:97 DISKSVMSMASTER:CLBR.SRCJDUMP.B32;1 . (33 
0000" CF 9F 00084 PUSHAB FAOSTRINGS ; 
68 5 FB 000B8 5$: CALLS #5, FAO_BUFFER : 
0 DD 00088 PUSHL ; 
67 91 FB 0B CALLS #1, LIBSPUT_OUTPUT : 

2 5 cd 000Cc ADDL2 RS, ENTRY + 1161 
56 5 D1 000C3 6$: CMPL NERY, R6 : 
co 18 O¢é BLEQU ; 

52 0c A3 9E 000C OV 12(R3), ENTRY + 1162 
15 11 000CC BRB : 

FFFF =F 04 A2 B61 OOOCE 7S: CMPW 3s (ENTRY), #65535 + 1166 
OA 12 00004 BNEQ ; 

62 DD 9006 PUSHL (ENTRY) + 1168 
04 AC DD 000D PUSHL INDEX : 
0123 «C8 02 FB 000DB CALLS 2. DUMP_WHOLEBLK ; 

52 55 CO OO0EO 8$: ADDL2 RS. ENTRY + 1160 
at 52 D1 OO0E3 9$: CMPL ENTRY, R6 ; 

£6 1B OOOE6 BLEQU 7$ : 

50 01 DO 000E8 MOVL #1, RO + 1171 

04 000EB RET : 1172 


; Routine Size: 236 bytes, Routine Base: S$CODE$ + 0324 


LBR_ 18-50 $ep-1984 7 VAX-11 BLi seze Pa 4 
ibe=000" Main body of LBRSDUMP_INDEXBLOCKS 8ep-1986 9}: $3: 9 DISKSVMSMA ae clea OFAC SUMP. 832;1 9¢ 485 
; : ¢ 1103 ZSBTTL "Main body of LBRSDUMP_INDEXBLOCKS'; 
; & § 1175 ' 
3 2 1178 Main body of lLbr$dump_indexblocks procedure 
3 ret 1328 LOCAL 
: rh BF index_desc: REF BBLOCK; ! Index descriptor 
; 46 1183 index _desc = iors control Clbr$l engeh:. + Lhd$c_idxdesc 
; 46 11 ¢ Tndex-1) *idd$c_Teng 
> 46% 118 IF _.index_desc Cidd$l _vbn] EQL 0 "If empty index, 
; 465 1188 THEN 
; 466 1185 RETUR ! return immediately 
> 467 1186 IF bday "Geet *tiddsy _varlenidx] 
; 468 118 THEN 
§ re H+ perform( dump_wholeblk2 (.index, .index_desc Cidd$l_vbnJ)) 
3 ts 1100 perform( dump_wholeblk (.index, .index_desc Cidd$l_vbn])); 
. te 1136 RETURN true; 
3 46746 1195 2 
; 475 1194 1 END; ! Lbr$dump_indexblocks () 
0000 00000 -ENTRY LBRSDUMP_INDEXBLOCKS, Save nothing ; 1025. 
51 0000G CF D0 0000 MOVL LBRSGL _CONT TROL, R1 : 1181 
50 04 C pO 0000 MOVL INDEX, RO 3: 1182 
51 0A B140 7€ 0000B MOVAQ arOcR{)EROD, INDEX_DESC : | 
51 00BC C1 9E 00010 MOVAB 188(R1), INDEX DEST é 
50 04 «AI 9 00015 MOVL 4(INDEX_DESC), “RO 3; 1183 
1D 13 00019 BEQL 3$ 3 
0c 61 02 €1 0001B C #2, (INDEX_DESC), 1$ : 1186 
50 DD OOOTF PUSHL RO ; 1188 
04 AC 0D 00021 PUSHL INDEX : 
FDFA CF 02 FB 00024 CALLS #2, DUMP_WHOLEBLK2 ; 
0A 11 00029 BRB 2$ 3 
50 DD 808 B 1$ PUSHL : 1190 
04 AC DD 00020 PUSHL INDEX : 
FEDF CF 9¢ FB 000 4 CALLS #2, DUMP_WHOLEBLK : 
03 50 €9 000 te BLBC STATUS, 4$ g 
50 01 B° sits $: MOVL #1, RO : 1192 
4 00058 4$: RET 3 1194 


; Routine Size: 60 bytes, Routine Base: $CODE$ + 0410 
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ae clak srcSpump.e32;1 29.443 


LBRSDUMP_CACHE 


; ory 1135 } ZSBTTL "LBRSDUMP_CACHE'; 

; 47 1199 1 GLOBAL ROUTINE LbrSdump_cache = 

; 480 1338 1 

; «4481 1199 1 !<<- 

; 4 ¢ 1200 1! 

; ret ! 4 } } Interactively dump the cache to SYSSOUTPUT. 

; 485 1 08 1 ! Inputs: 

: rt + 1206 1! 

; 48 1205 1! From SYSSINPUT, enter any of the single Letter commands with an <ESC>. 
; 488 1 86 1! N move (North) up the hash table 

; 489 1207 1! S move (South) down to next bucket in hash table 

; 490 1208 1! E move (East) over to the next cache entry in current hash bucket 
3; 491 1209 1! WwW move (West) back in the Linked List of cache entries. 

; 49 1210 1! B jump Back to the first cache entry in current bucket 

; 49 1211 1! J Jump down 10 buckets in hash table 

; 494 1 \¢ 1! D Display the VBN for the current cache entry 

3; 495 \¢1 1! 0 return to ae first entry of first bucket 

; 496 1214 1! L query for a VBN to locate in cache 

3; 497 1215 1! G uery for a VBN to get from Library and cache 

; 498 1 1g 1! R eprint the screen 

; 499 121 1! Q Quit and clear the screen 

; 500 1218 1! 

3 301 1219 1 ! Outputs: 

3 206 1530 1! 

; 1221 1! Displays requested contents of library cache on VT100 

; 504 1$s6 1! 

3 305 12235 1 !--- 

; 506 1224 1 

; 507 1225 BEGIN 

; 508 1226 

3; 509 1227 FORWARD ROUTINE 

; 510 1228 display_entries, ! Print the cache entry List for current and next bucket 
s 21 \$¢9 5 display_entry_1, ! Print the cache entry List for the current bucket 

3 21§ 1230 display_entry_2, ! Print the cache entry List for the next bucket 

: BF \¢3) é display_block; ! Locate memory address of current block and display it. 
3 319 1533 LITERAL 

3 3M 1234 first_entry = 0, ! first entry in Linked List of cache entries 

s 317 1235 lk_col = 2 , ' column to print block in 

; 2 1236 blk_lin = 9, ' Line to start block dump on 

s 319 1237 level_1 = 1, ! Cache entry List for current bucket 

: é 0 1$38 input_lin = gf ' Place cursor for command input 

3 1 1239 input_col = 0, ' Place cursor for command input 

, 5 § 1240 depth_offset = 1,  ! How many Lines down to disp 7 cache entry List 

; > 1241 wid_offset = 20, ' How many columns over to display cache entry List 

; 524 1666 bcktoffset = ' How many Lines down to fispley window of hash buckets 
3 Ses 124 entry_depth = 5, !' Number of Lines to display a level 1 cache entry 

3 ee 1244 ontry_wid = 9, ! Number of characters taken by display of one cache entry 
: 32? 1245 entries_wide = 12, |! Max number of enties in cache entry linked list to fit on screen. 
g 258 1966 half_hash_window = 5; ! Half size of window surrounding current bucket 

3 385 1 $8 ROUTINE fao_buffer (ctrstr.args) = 

s 331 124 BEGIN 

3 236 1250 OWN ; 

3 33 1251 desc : BBLOCK Cdsc$c_s_bin), ! Result descriptor 


1b-be0-1984 199 gy NKSUmGMASTERSCLOR SACSoUMP.a32;1 29°99 


LBRSDUMP_CACHE 


5 ¢ } ¢ a buf : VECTOR (132, BYTE); ! Output buffer 

; 1254 ctrstr : REF VECTOR C.BYTEI, 

; i : 5 args : VECTOR (4); 

: 539 1589 LOCAL 

3 re ' 23 faodesc : BBLOCK Cdsc$c_s_binj; 

: 54 1260 faodesc Cdsc$w_length] = .ctrstr FO: 

: 56 1261 faodesc Cdsc$a_ apointer) = ctrstr 

: 544 1 66 desc dsc$w =length J] = 132; ! Set up result descriptor 
; 545 126 desc (dsc$a_pointer] = buf; 

; 546 1264 $faol (ctrstr=faodesc, outlen=desc, outbuf=desc, prmlst=args); 
3 rn : rH oe TURN desc; 


~PSECT SOWNS,NOEXE,2 


QO17C DESC: .BLKB 8 
00184 BUF: -BLKB = 132 


-PSECT $CODES,NOWRT,2 
0004 00000 FAO_BUFFER: 
WOR 


¥ D Save R2 : 1248 
52 0000" CF 9€ 0000 MOVAB DESC R2 : 
SE 08 C2 0000 SUBL2 P : 
6E 04 BC 9B OOO0A MOVZBW or ERSTR, FAODESC : 126 
04 AE 04 AC 01 C1 O000E ADDL3 #1, CTRSTR, FAODESC+4 + 126 
62 84 8F 9B 00014 MOVZ7BW #152, DESC : 126 
04 A2 08 A2 9E 00018 VAB BUF, DESC+4 : 126 
08 AC 9F 0001D PUSHAB ARGS + 1264. 
3g DD 00020 PUSHL R2 : | 
52 DD 00032 PUSHL F 
OC AE 9F 00024 PUSHAB FAODESC ; 
000000006 00 04 FB 00027 CALLS #4, SYSSFAOL : 
50 62 9E 0002E MOVAB DESC, RO : 1265. 
04 00031 RET + 1266 


; Routine Size: 50 bytes, Routine Base: SCODE$S + 044C 


; 549 1267 2 


1 16 
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es 
5 


display_bucket 


; } é ZSBTTL ‘display_bucket'; 

: 1 ROUTINE di , entry) = 

é 7 titty E display_bucket ( bucket, entry) 

. ' 

3 330 127 : For the current bucket, hE the Linked List of cache entries 
3 Sor 1274 : Sparsing at the offset ENTRY, and display the linked list for the 
; 558 1275 ; the bucket following the current bucket. Dump the block for the 
; 3 127 ‘ the current cache entry. 

; 560 127 : 

; 561 127 leoe 

; 206 127 BEGIN 

s +6 1280 perform ( display_entry_1 ( .bucket, .entry) ); 

3 ae: 1281 perform ( display_entr =¢ ( .bucket+1, first entry) bg 

; 565 128 erform ( display~block”(.bucket, .entry) );~ 

; 566 128 ETURN true; 

; 567 1284 END; ! routine display_bucket 


0000 00000 DISPLAY_BUCKET: 
WORD 


‘ Save geen : 1270 

7E 04 AC 7D 00002 MOVQ BUCKET, -(SP) : 1280 
0000vV CF 02 FB 00006 CALLS eee DISPLAY ENTRY_1 : 
iE 50 €9 00008 BLBC STATUS, 1$ ~ : 

7E D4 0000E CLRL = (SP) + 1281 
7E 046 AC 01 C1 00010 ADDL3 BUCKET, -(SP) : 
0000v CF 02 FB 00015 CALLS AS DISPLAY _ENTRY 2 : 
OF a 9 OOO1A BLBC = STA : 

7E 04 AC 7D 0001D MOva : CKET. -(SP) > 1282. 
0000v CF 02 FB 00021 CALLS DISPLAY_BLOCK : 
03 50 €9 00026 BLBC STATUS. i$ ~ : 

50 01 DO 00029 MOVL #1, RO’ : 1283 

04 0002C 1$ RET : 12 


; Routine Size: 45 bytes, Routine Base: S$CODES + 047E 


; 568 


1285 2 


Se Se Se Ce Se Ge Ge Se Ge Oe Se Se ee Se Se ae 
~ 


Mn 


3; Routine Size: 


K 16 
Se 4 X-11 Bite 
erase block 12: Sep- 1986 93: 5: $3 aK SVMGM 
} ZSBTTL ‘erase_block'; 
1 5 ROUTINE erase_block (Lin,coi,nlines) = 
: 4 pees 
1291 : Erase a block on the screen. 
1 35 ‘ Calle 
! + cune block 
36 | display_block 
1 38 BEGIN 
1298 INCR i FROM .Lin TO (.Lin + .nlines = 1) BY 1 DO 
1299 scrSerase_line (.i,.col); 
1500 RETURN t true; 
1301 END; 
000C 00000 ERASE_BLOCK: 
-WORD Save R2,R3 
53 046 AC 0c AC C1 00002 ADDL NLINES, LIN, R3 
52 046 AC 01 C3 00008 SUBL “i, ° 
0c 11 00000 BRB 
08 AC DD QOOOF 1$: PUSHL COL 
52 DD 00012 PUSHL I 
00000000G 00 02 FB 00014 CALLS a FCRSERASE LINE 
0 52 53 F2 0001B 2$: AOBLSS R 1$ 
50 01 00 0001F MOVL a 
04 00022 RET 


35 bytes, Routine Base: S$CODES + 04AB 


sear 


CLEA SRCSDUMP. 832;1 


Pose (48) 
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display_entries 12-866-1984 93:99:95 DT SKSVMSMASTERSCLOR- SRCIDUMP.832: 1 malty 3: 


$6 
= 


; 8g ! ¢ ZSBTTL ‘display_entries'; 

5 9 1304 ROUTINE display_entries ( bucket, entry, level) = 

: 339 1308 Si 

. 1 

3 36 130 : Display the cache entry Linked List for the given bucket 

; 59 1 BB ; On the screen at the given level. 

i 33¢ 1310 $i Seeee “Ghestay_sneen.) 

; : splay_entry_ 

; 4] 1311 : 

; 1 if {ooo 

; 598 131 BEGIN 

; 599 1314 

; 600 1315 BIND 

; 601 1316 context = corey control ClbeSt_cexpers : BBLOCK, 

3 one 1317 cache = .context Ectx$l_cache] : VECTOR; 

; 60 1318 

; 604 1319 LOCAL 

; 605 1320 Line, 

; 606 135) cache_entry : REF BBLOCK, 

; 607 13 ; entry_num, 

; 608 136 entries_out; 

; 609 1324 

; 610 1325 cache_entry = .cachel.bucket]; 

; 611 1326 Line = entry_depth * (.level-1) + depth_offset; 

; ol¢ 1327 entries_out = 0; 

; oF 1358 entry_num = 0; 

3 615 1389 IF NOT ( (.bucket LSS first_bucket) OR (.bucket GTR Last_bucket) ) THEN 
: 616 1331 3 WHILE (.cache_entry NEQ 0) AND (.entries_out LSS entries_wide) DO 

; 617 1332 4 BEGIN 

; 618 1333 4 IF ( .entry num GEQ .entry ) THEN 

; 619 1334 5 BEGIN 

; 620 P1335 5 write_screen( .line, wid_offset + .entries_out*entry_wid, 

; 621 1336 5 faoentry, .cache_entryl cache$l_Link ]°); 

; 622 P 1337 5 write_screen( .line+T, wid_offset + .entries_out*entry_wid, 

: 623 1338 5 faocentry, .cache_entry£ cache$l_vbn J] ); : 

; 624 ’ 1339 5 write_screen( .line+2, wid_offset + .entries_out*entry_wid, 

; 625 1340 5 faoentry, .cache_entryC cache$l_address 3 ; 

; 626 P 1341 5 write_screen( .line+3, wid_offset +” .entries_out*tentry_wid, 

: os? 1346 5 faoentry, -cache_entryl cache$w_flags J J; 

; ? ; tr ? entries_out = .entriés_out + 1; 

3 eo 1362 4 cache_entry = ecache_entryl cache$l_Link]; 

; 6351 1346 4 entry_num = .entry_num + 1; 

3 O36 ot ; END; ! WHILE stT7Ll entries in bucket, and not off edge of screen 
i; 634 1382 IF (.entries_out LSS entries_wide ) THEN 

; 635 1350 4 BEGIN - 
; 636 1351 4 perform ( scr$erase_line(.line , wid_offset + .entries_out * entry_wid) ); 
: 637 1326 & perform ( scr$erase_Line(.line+{ , Wid_offset + .entriés_out * entry_wid)); 
: 638 1355 4 perform ( sergorase. ine) +) inere . wid_offset + .entries_out * entry_wid)); 
3 a7. 1385 4 erform ( scr$erase_line(.line+S , wid_offset + .entries_out * entry_wid)); 
; 641 1356 ; RETURN true; — f . 

3: 642 1357 END; ! Routine display_entries 
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DISKSVMSMASTER: CLBR.SRCJDUMP.832; 1 


ve R2,R3,R4,R5,R6,R7,RB,RI,R10 
O BUFFER, RIO 
NTRY, RO 
LINE, Rg 
S$PUT_SCREEN, R 
$GL_CONTROL, RO 
0)7 R1 
BUCKET 


RO 
ag(Ri)CROI, CACHE_ENTRY 
#5, LEVEL, Re 


#4, LIN 
ENTRIES OUT 
ENTRY_NOM 


—f-nunnnen 
FDWoonr>re 
DDO 
» wr 

m 
»D 
> 
n 
(Te 


am 


$ 

RO, #127 

ACHE_ENTRY 

NTRIES_OUT, #12 

NTRY_NUM, ENTRY 

#9, ENTRIES_OUT, R4 
(R4) 


NE 
(CACHE_ENTRY) 
#2, FAO_BUFFER 
,_ SCRSPUT_SCREEN 
(R4) 

LINE) 
CACHE_ENTRY) 

. FAO_BUFFER 
CRSPUT_SCREEN 


0 
( 
( 
9 
0 
(LINE) 
(CACHE ENTRY) 
FAO_BUFFER 
3 gi GRSPUT_SCREEN 
(LINE) 
g(CACHE ENTRY), (SP) 
FAO_BUFFER 
, SCRSPUT_SCREEN 


S 
(r4 
LIN 
(CA 
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; Routine Size: 231 bytes, Routine Base: $CODE$ + O4CE 


; 643 1358 2 
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Sw 


; 2 ] 14 ZSBITL ‘display_entry_1'; ; 
> 646 1361 ROUTINE display_entry_1 ( bucket, entry) = ; 
; 648 136 1+¢4 ; 
; 649 136 : ‘ 
: 650 1364 : aie the Linked List of cache entries at BUCKET : 
; 651 1265 i which is the current bucket, and display at level f, : 
; § ¢ 1366 ; Sogtanten etehe the ENTRYth entry in the List. ; 
: § 1367 3 BEGIN : 
3 654 1368 3 LOCAL status; : 
3 6655 1369 status = display_entries (.bucket, .entry, level_1); ; 
is 65 1370 RETURN .status; > 
is 65 1371 END; : 


0000 00000 DISPLAY_ENTRY_1: 
WORD 


: Save nothing ; 1361. 

01 dD 00002 PUSHL #1 ; 1369. 

FFOC CF 03 FB 00008 CALLS #3, DISPLAY ENTRIES 
04 0000D RET 1371 | 

| 


| 7E 04 AC 7D 00004 MOVO. BUCKET, =(SP) : 
E Routine Size: 14 bytes, Routine Base: S$ CODE$ + 0585 | 
j 


: 658 1372 2 


| 
| 
| 


me A SR 


LBR_DUMP 16-Sep-1984 01:48:07 VAX-11 Bliss 
v04=000 display_entry_2 12-8 08-19be 3595 :9 DISKSVMSMAS 
; 660 1373 ZSBITL ‘display_entry_2'; 

: 661 1374 v. 

$ 4 1375 ROUTINE display_entry_2 ( bucket, entry) = 

; 66 137 lees 

; 6646 137 ! 

; 665 1378 : dn oy | the Linked List of cache entries at bucket, 

; 666 1379 : where bucket is the next bucket after the current 

3 667 1380 . bucket. Count in_ENTRY entries before mig ying. 

; 668 1381 ' Dis Lay at level 2, and only display the VBN and flags 
3 669 1356 : field from the cache entry due to flae Limit on screen. 

3 670 138 : 
‘3 «671 1380 leoe 
is 67 1385 BEGIN 

3 67 1386 

; 674 1387 BIND 

; 675 1388 context = -torsgt control Clor$l “Cerpeed | BBLOCK, 

; 676 1789 3 cache = .context Ectx$l_cache] : 

: 677 1390 ; 

; 678 1391 LOCAL 

: 679 1392 3 status, 

: 680 1393 3 Line, 

; 681 1394 3 entry_n 

; 682 1395 3 cache_ “ontty : REF BBLOCK, 

; 683 1396 3 entriés_out; 

; 684 1397 3 

; 685 1398 3 cache_entry = .cachel.bucket]; 

: 686 1399 3 Line = entry. depth + depth_ offset; 

; 687 1400 3 entries_out = 0; 

; 688 1401 3 entry_nim = 0; 

; 689 1402 3 

; 690 1403 3 IF NOT ( (.bucket LSS first bucket) OR (.bucket GTR last_bucket) ) THEN 
; 691 1404 3 WHILE (.cache entry NEQ’0) AND (.entries out LSS entries_wide) DO 

: 692 1405 4 BEGIN 

i; 693 1406 4 IF ( .entry.num GEQ .entry ) THEN 

; 694 1407 5 BEGIN 

; 695 P1408 5 write_screen( .line, wid_offset + .entries outtentry_ wid, 

: 696 1409 5 faoentry, cache entryl cache$l_vbn 

: 697 P1410 § write_screen( .line+T, wid offset + .entries outtentry_wid, 
; 698 1411 § faoentry, .cache_entryl cache$w_flags J J; 

; 699 1412 § entries out = .entriés_out + 1; 

: 700 14135 4 

: 701 1414 4 ae “entry = -cache Th cache$l_Link]; 

; 70 1415 4 entry_num = .entry_nu 

3 At iis ; END; ! WHILE StTLL entries in bucket, and not off edge of screen 
: 705 1418 3 IF (.entries_out LSS entries_wide ) THEN 

; 706 1419 4 BEGIN 

; 707 1420 4 perform (scr$erase_line(.line , wid offset + .entries_cut * entry_wid)) ‘ 
: 43 1¢53 4 ocvere (scr$erase_Line(. Line+f , wid_offset + .entriés_out * entry_wid)); 
Re 

s 710 1423 : RETURN true: 

ogee 1424 2 END; ' Routine display_entry_2 


-32 tatty 
TER: CLBR.SRCIDUMP.B32;1 


Pa 33 
9° 48) 


34 
(16) 


Page 


MASTER CLBR.SRCSDUMP..B32; 1 


Liss-32 V4.0-74 


aw 


display_entry_2 


w o o oor wv oOo Oo ~~ Oo - 
~ o fo OCcoO So oS ©& - KK Om- ~N or 
~» mm -s wMemias wv vTrwv w vwwwrserse wv w wv 
_- tod - Ck el oo - - - - rere Ke - - -— 
SPSS tS FS FS FSS FS HS FSS FS FS STS FS HS SS HSS HS HSS FSR HS FSS HS HSS HS HS SS FS FS HS FSCS FS SSCS FSFE FE FR SESE FEE FE te 
> 
a « 
a _ 
s = za 
~ i. 4 ~ ws 
i: 4 -— a ‘ 
. z nn w 
o uw ~~ - = 
eor.o q a 2 ¢ 2 vw w wi 
carn w w uw << 2 2 
wn = NN } . uw . w ww N — _ 
@meees w - & & is ~ a - ail | 
“wuz < = - 2D ~ & wv > x«& wow . R d 6 
wTZzwo Lv z oO - wu cow WwW A w w 
acme > w ' ec wf ‘ —_- ‘> 7 ” w 
eS 4 a ad ~- - “) —- & & =z ee eee i ¢ < 
M R2--Om7D e« >a - w —_— «= w 32 25> PE cnr cw 
ewmwoccoo K- ots w © a ‘('@M@ ao2zz oOo we wi 
wm a bu ~ 2 ' «& mo | A wae § @ bwD ‘ A A 
Nee ts wumMmZz NN w ww 2 & wero gf arago awn @& ww @menas 
eaxdin ke mwe _- + w ( 2n Fee Vewort oww fw NR VHRWOMO 
wa OOwen- YU =zwe > wM VCSZu YOMZdtZzu Were |= EW HWDWNZMYDA& 
es ehsbed 4: 4:4 =_- = «& eww Qeeow aevc « aw oe 
>Paaawu~wr * ._ Uo -— & ww ZYO + ~~ O +s —i— ewe ZZ ew iy +e st 
BVUO~T DD ZOOKVHOSKR IH ZAHZAHOO BNVUOMOY VN LVOM ZV ZH ZAOO SVE ON NE 
MMM Ue DOEwWFBIMAMoMwMwvsen iT u BSRBVRK Ko BERWYN IRON BYR 
™“ @ =ud a@ 
>andag — ae ee Ly wf ow <qaiwn 
ead JY IM HE IIS IN ITT ITY TINT Fa ss I OI TTI TET 
-O>>>>2>2>a2 >> OA O80 WA YM UMN NY IY IH OH IH VO PUMA WwW IMMY UMMM UD >e 
ZBIOOOCOC0O0 JOM JEOCMWE OE tJDDD DD et Daet DDO D A De ZOVZATZTOVIDIDI <I UD Dt Ow 
8 EES EM OVO OSO9E2.46.6.4.46.06.06.6. £6.06. WME SVSE6.6.008.6.085e 
os 
< 
I 
a 
nn - oo 
_ A of ceed PP 
Qa - N al ww 
So NOOO OWT CO OWT OD MO PM. £VU MO LOOP MH. DOMME LOW MOO Owe wrt OO 
GO NCIC CIP) ST AT ST ST AT TION OOO OR-P-P-P-_P- PR. OD DWDWDDOOSCOO 
S WOSOOCOCOCOOCOCCOCOGCOCSCOCCOCSCOOCCOCCOCCOCCOCOCOCOCOOCCOCOCOCOCOOCOCOOSO OOOO OSooOoOO 
SDS OOOCOCOCOCCOCOCOCCOCCCOCCOCOCOCOCCOCOCOCSOSOOCOOCOCOOCOCOOOOOOOOOOOOOSoOO 
Oo OOOCOOCOCOCOCOCOCOOCOCCCOCCOOCCCCCOCOCCOCOCOCOCCOOCCOCOCOCOCOCOOOOCoOOoOoOoOOe 
VY WWOOCOKOT ONO RK TMM Oe - Omu O04 @MOOuu Vu MODOOOOr Osu ODOuu OOO 
’ POORKKOOR- Ok Or Or OK Or VOOOC& OL BOMOOu Ou COO Or VC OuUWOOuwoo 
- 
oOo 
DOOv OVO OOM O £6FON— OT OMT & MOMMA & VOMIT OON ZOOUMNONMNNO- 
COVES LTMNOMATMTMATIMO Ain I VOM Cf ef IVOMNOM ON ONO ENON ZT LOMO 
- 
@ 
woo - - 
oo Ow yea wT wo Tr VO w Tro 
Oooco°oo - oOo -Oooo - -oO 
ooo o So 
ooo Oo Oo 
oo 
oo 
oo 
oo 
or-OrowTr wr iv vw vw w ue we & ee ™S Ou DWMQa 
MAA oo o <« w vv oO ~ ve wow ow oo wow 
“ a - oa 
~ oOo ~ - 
oO w ws 
oO uw o 
o 
Oo 
o 
Oo 
tal 
w 


| 


161 bytes, Routine Base: $CODE$ + 05C3 


; Routine Size: 


| 3 


1425 2 


v0. 


VAX=11 Bliss=-32 V4.0-74 


dump _block 


800 


LBR_ 
04> 


—_— Re ee a a a 


Pa 5 
DLEKSVMEMASTERS LOR: SRCSDUMP.B32; 1 atthad 


erase block ( blk_lin,blk_col,16); 


RETURN .status; 


pblock ( blk ) 
Dump the block at address BLK, in hex and ASCII. 


: REF BBLOCK; 
«blk EQL 0 THEN 
status = 
k_Lin; 
OM 0 fo 512-32 BY 32 DO 
5 3 
3 
2 
b 0 
2 1 
rue; 


ZSBTTL ‘dump_block'; 
blk 


ROUTINE dum 
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DISKSVMSMASTER: CLBR.SRCJDUMP.B32; 1 
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115 bytes, Routine Base: S$CODE$S + 0664 


; Routine Size: 
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. (18) | | VO4 


H 1 
‘ 1o~se0= 138% 01 :48:9 VAX-11 Bliss- etsy 
display_block 14-Sep-1984 12:37:37 DISKSVMSMASTER: CLBR.SRCJDUMP.B32; 1 


ZSBTTL ‘display_block’; 
ROUTINE display_block ( bucket, entry) = 


—_ 
= 
“ 
~o 


! ‘ 
: Locate the ENTRYth cache ertry in BUCKET, obtain the address 
of the cached block and call dump_block to print the hex and 


Bee Se Se ee Se Be Se Oe Be Se Be Oe Oe Be Oe Oe Oe Oe Oe SH Se Be Oe Se Se Se Oe Se Be Se Oe Se Oe Oe os oe SH Oe OH Hes S 


SN NN 
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ASCII dump of the block. , 


BEGIN 
BIND 


context = or control c LbeSt_cexperd : BBLOCK, 
cache = .context Ectx$l_cache] : "VECTOR; 


OCAL 
status, 
entry _num, 


vbn, 
cache_entry : REF BBLOCK; 


RETURN erase_block(blk_lin,blk_col,16); 
ache_entry = .cachel.bucket); 
F .cache_entry EQL 0 THEN 

RETURN erase_block(blk_lin,blk_col,16); 


num = 0; 
3 (,.cache_entry NEQ 0) AND (.entry_num LSS .entry) DO 
BEGIN 


cache_entry = coche. oneryleschedt tink); 
entry_num = .entry_num + 1; 


ntr 
HIL 


BEGIN 
cur_vbn = .cache_entry Ccache$l_vbni; 
status = dump_block ( .cache_entry(cache$l_address)); 


LSE 

status = erase_block (blk_lin,blk_col,16); 
ETURN .status; ‘ 
ND; ! routine display_block 


000C 00000 DISPLAY_BLOCK: 
- WORD 


IF (.bucket LSS first bucket) OR (.bucket GTR Last_bucket) THEN 


END; 
Fs (.entry_num EQL .entry) AND (.cache_entry(Ccache$l_address] NEQ 0) ) 


Save R2,R3 ; 1461) 
50 0000G CF b0O 0000 MOVL LBRSGL_CONTROL, RO : 1472 
53 0€ AO 00 0000 MOVL 14(RO), R3 ; 
52 04 Ac t 4g MOVL UCKET, R2 3 1481) 
30 19 O000F BLSS : 
0000007F 8F ¢¢ D1 00011 CMPL R2, #127 ; 
4 14 00018 BGTR : 
52 08 8342 DO OOOIA MOVL > 1483, 


@8(R3)C(R2], CACHE_ENTRY 
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VAX-11 Bliss-32 ve ,Peree 
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Routine Base: $CODES + 06D7 


90 bytes, 
1502 2 


; Routine Size: 
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WAAR PI POPUENINININONI 2 2 St OS OS 
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ZSBTTL ‘find_vbn'; 

ROUTINE find_vbn ( read, bucket, entry, vbn) = 

Search the cache for a cache_entry for the requested VBN. 

If found, reset the current Bucket and ener? to point to it. 
If function is read then read it in and cache it. 


bucket: address of global longword containing current bucket 
entry : address of global current offset in cache entry List 


von : virtual block to search cache for 
' en es 
BEGIN 
BIND 
context = bret control Clopt_ctnptes : BBLOCK, 
apache = .context Ectx$l_cache] : “VECTOR; 
ckt, 
blkadr, 
cache_addr, 
cache_entry : REF BBLOCK, 
ntry, 
status; 


IF .read 
THEN perform ( find_block ( .vbn, blkadr, cache addr ) ) 
ELSE perform ( lookup_cache (.vbn, cache_addr) ); 


bekt = (.vbn = 1) MOD (Lbr$c_hashsize/4); 
cache_entry = .cachel.bcktd; 


ntry = 0; 
UNTIL (cache entry EQL 0) OR (.cache_entryCcache$l_vbn] ECL .vbn)) DO 


cache_entry = .cache_entry(Ccache$l_Link]; 
ntry = .ntry + 1; 


END; 
IF (.cache_entry EQL 0) OR (.cache_entry NEQ .cache_addr) 
THEN 0=0 ' access violate to trap logic error 


entry = .ntry: 


END; 
RETURN true; 
END; ! ROUTINE find_vbn 


MROWIAS® BS SWW EAS & BAN BE NNW WOOO 
m a 
oO 


OFFC 00000 FIND_VBN: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


5E C2 0000 SUBL2 # 
20 00006 CF 00 0000 MOVL BRSGL_CONTROL, RO 
5 OE AO DO OOOOA MOVL 4(RO)> R3 


a LL 


war 


find _vbn 


7E FFFFFFFF 8F 
51 51 
122 bytes, 


; Routine Size: 


840 


1550 2 


1 4 AC f? 
4 AE 9E 
6E 4 
0 10 AC 
06006 30 
0B 11 
51 04 AE 9 
50 10 AC 
00006 
49 0 5? 
10 AC 1 7A 
43 00000080 F re 
5 08 8341 D 
52 D4 
50 D5 
OE 13 
10 AC 04 Ad 01 
07 13 
50 60 00 
52 06 
ce ot 
50 05 
06 13 
04 AE 50 01 
08 13 
00000000 9F D4 
08 11 
08 BC 51 00 
oc =6BC 52 00 
50 01 D0 
04 


Routine Base: 


SCODES + 0731 


K | 
16-Sep-1984 01:48:07 VAX-11 s-32 V Page 40 
Freee eee ee ee eee GhASfeaccl ga sacSpump.e32;1 2169 | 
990 BLBC 1$ : 1529. 
0 i MOVAB cAcHE Are DR, R2 : 1530. 
01 MOVAB BLKADR, R1 : | 
001 MOVL VBN : 
0010 BSBW ven AO°, : 
00 9 BRB : | 
0022 1$: MOVAB CACHE_ADDR, R1 + 1531) 
0026 MOVL —s*VBN, : 
QO2A BS8W = LOOKUP_CACHE 3 
002D 2$: BLBC STATUS. : | 
0030 EMUL #-1, -(SP) + 1533 
005A EDIV +158" Nepya. BCKT, BCKT : 
0043 MOVL aa CRS) CBCKTS, CACHE_ENTRY t 1534 
00048 CLRL + 1535 
0004A 3$: TSTL | CACHE_ENTRY > 1536) 
0004¢ BEQL 4$ ; | 
OO04E CMPL § 4(CACHE_ENTRY), VBN : 
0005 BEQL : 
00055 MGVL (CACHE_ENTRY), CACHE_ENTRY + 1538 
00058 INCL NTRY + 1539. 
0005A BRB 3$ : 1536 | 
0005C 4$: TSTL  CACHE_ENTRY + 1541 
0005E BEQL $ § 
00060 CMPL §_ CACHE_ENTRY, CACHE_ADDR : 
00064 BEQL = «6$ F 
00066 5$: CLRL a#*x00000000 + 1542 
0006C BRB 7$ : | 
QO06E 68: MOVL BCKT, @BUCKET + 1545 | 
00072 MOVL NTRY. @ENTRY > 1546) 
00076 7$: MOVL #1, RO : 1548 
00079 8$: RET + 1549 


De Be Be Se Be Se Be Se Se FH Se Se Be Se Se Se Se Se Se Se Fe Fe Se Se Se Se Ge Se Se Se Be Se Ge GH SE Se Se Se Se Se Se Se Se Se Se Se Se oe Se Se Se Seas te Se eens 
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_LBR_DUMP 16-Se -1984 01:48:07 - VAX=11 Bliss-32 V4.0-74 Page 41 LBR 
v04=000 locate,.vbn 12286571 384 9:99:95 DL SKSUMEMASTER-CLOR SRCSDUMP.B32; 1 9°20) | v04 
;  B4 1551 ZSBITL ‘locate_vbn'; 3] 
; bes 1388 < : 1 
> B44 15 ROUTINE locate_vbn ( read, bucket, entry ) = a 
> 845 1554 1 +4 | 2 4 
(3 «6846 1555 : : 4 
3 847 1328 ; Request from SYSSINPUT a VBN to find. Locate the VBN in the cache, : 1 
3 «(848 155 : and if found, reset the current bucket and entry. If READ is true, 7] 
E a 1338 then read the block into the cache if not already there. zt 
i; 851 1560 : bucket: address of global longword containing current bucket | |; 1 
3 o26 129) entry : address of global current offset in cache entry List : : 
i Ht 1868 § in. | 31 
is 855 1564 3 BEGIN | 33 
(3 856 1565 | 3] 
3 857 1566 OWN 37 
; 858 1567 desc : BBLOCK Cdsc$c s_bln], ! Result descriptor ; 1 
E 859 1568 VECTOR £32, BYTE); i Qutput buffer | eB 
; 860 1569 3 LOCAL : 1 
; 861 1570 status, 3 
; 86 1571 vbn; 3 3 
; 86 1376 3 7 
; 864 157 desc peschu. tongthy = 32; ! Set up result descriptor : 
; 865 1574 desc Cdsc$a_pointer] = buf; | 37 
: 866 1575 perform ( scr$set_cursor(input_lin, input_col) ); 3 7 
3 867 1576 3 perform( scr$get_screen( desc,0,descldsc$w_length] ) ); d g Y 
; 868 1577 ; perform( ots$cvt_tz_l ( desc, vbr ) ); ' convert text string to hex 37 
; 869 1578 status = find_vbn (.read, .bucket, .entry, .vbn); 3 1 
; 870 1579 3 RETURN .status; : 1 
; 871 1580 2 END; ' routine locate_vbn | : : 
| : 4 
:1 
-PSECT $OWNS,NOEXE,2 | : 1 

| . 
00208 DESC: .BLKB 8 3 7 
00210 BUF: -BLKB 32 3 ! 

| 3 
| : : 
| -PSECT $CODE$,NOWRT,2 | : t 
0004 00000 LOCATE_VBN: 3 
| -WORD Save R2 : 1553 : 7 
52 0000" CF 9E 00002 MOVAB DESC, R2 3 ; 7 
5E 04 C2 00007 SUBL2 #4, SP 3 ..7 
62 20 80 OO0OA MOVW #32, DESC : 1573 3:3 
04 Az 08 Ae 9 00000 MOVAB BUF. DESC +4 1574, 71 
7E 18 7D hf MOVa #24, =-(SP) ; 1575 | 3 7 
000000006 00 9¢ FB 48 CALLS #2, SCRSSET_CURSOR ; | 
2c 0 €9 OOCIC BLBC STATUS, 1$ : 3 1 
52 DD OO0IF PUSHL 2 : 1576 | 31 
7E 04 00021 CLRL -(SP) 3 | 3 
52 DD 00023 PUSHL R ; 5] 
00000000G 00 4 F8 90025 CALLS #35, SCRSGET_SCREEN ; 3 7 
| 1C €9 b0¢¢ BLBC «= STATUS, 1$ ; | 37 
4004 8F BB 0002F PUSHR #*M<R2,SP> : 1577 | 3 1 
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16-5 sen 3B 9}: $8: 97 VAX-11 Bliss-32 V4.0-7 Page 43 


display _hash 2: 7 DI SKSVMEMASTERS CLBR. she DUMP .B32;1 (21) 
} ¢ ZSBTTL ‘display_hash'; 
1584 ROUTINE display_hash ( bucket ) = 
12 5 ‘teeae 
1 ' 
12 ; Display window of the hash surrounding the current bucket 
1889 § inne 
1590 BEGIN 
1591 
1236 BIND 
159 context = =orent control Clor$l “Cuetec? * BBLOCK, 
1228 cache = .context Ectx$l_cache] : 
1596 LOCAL 
1597 peptue, 
1598 
1599 begvin, 
1600 win; 
1601 : 
iene 3 IF ( .bucket LEQ half _hash_window ) THEN 
1603 4 EGIN 
1604 4 beqwin = 0; 
1605 4 endwin = 2 * half_hash_window; 
1606 4 END 
1607 3€E 
1608 4 BEGIN 
1609 4 beqwin = .bucket - half_hash_window; 
1610 4 endwin = .bucket + half “hash_window; 
1611 3 END; 
1612 3 IF .endwin GTR last_bucket THEN endwin = Last_bucket; 
1613 3 bek 0 
1613 i WHILE ( .bckt LEQ .endwin ) vO 
1616 4 IF ( .bckt EQL .bucket) _ 
1617 4 write screen ( .bckt - peguen es + pentor tact, 0, faohashentry, 
1618 4 cache + 4* .bckt, .cachel.bckt)) 
1619 4 ELS 
1620 4 IF .bckt GEQ .begwin THEN ; 
1621 4 write_screcn ( .bckt - .begwin + bcktoffset, 0, faohash, .cachel.bckt]); 
1622 4 bekt = .bckt # 1; 
1623 3 END; !' WHILE 
1624 3 RETURN true; 
1625 2 END; ! routine display_hash ( bucket ) 
003C 00000 DISPLAY_HASH: 
WORD Save R2,R3,R4, i > 1584. 
50 0000G CF v0 0090 MOVL LBRSGL -CONfRO ROL, R ; 1593 
53 0—E AO DO 0000 MOVL 14(RO)> ; 
05 AC 01 00008 CMPL BUCKET, ; : 1602 
5 14 0000F BGTR 1$ 3 
54 A 7D 00011 MOVQ #10, ENDWIN ; 1605 | 
A 11 00014 BRB 2$ > 1602 | 


LBR P 1 
y8e=000 display_hash 1 
2? 4 Ac 5 ¢3 00016 
4 4 AC 5 ¢1 1 
0000007F BF 4 01 
04 15 000 
54 7F = BF So 9A 00029 
23 D4 0002D 
54 D1 44 F 
4A 14 00032 
06 AC 52 D1 000 
i Ue Se 
50 52 gf gS Boo? 
3 AO 9F 0004 
0 B3°s DD 0004 
08 B342 DF 00047 
0000" CF 9F 00048 
FCO1 CF 03 FB Q004F 
1B 11 00054 
55 52 D1 00056 
1F 19 00059 
7E 04 00058 
50 52 55 ¢3 00050 
02 (AO 9F 00061 
08 B342 DD 00064 
0000" CF 9F 00068 
FBES =«s«CCF 02 FB 0006C 
50 oD 30071 
000000006 00 03 FB 00073 
52 D6 O007A 
Bi 11 Q007C 
50 01 DO O007E 
04 00081 


; Routine Size: 130 bytes, Routine Base: S$CODE$ + 07F7 


; 918 1626 2 


~sep-19 4 93:48:07 VAX=11 Bliss-32_ V4.0-74 
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nm — 
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2: 


DISKSVMSMASTER: CLBR.SRCJDUMP.B32;1 

#5, BUCKET, BEGWIN 
#5, BUCKET, ENDWIN 
BNOWIN, #107 
#127, ENDWIN 

CKT, ENDWIN 
BCKT, BUCKET 

rt 3 
=(SP) 
BEGWIN, BCKT, RO 
2(RO) 
@8(R3)(BCKT) 
a8(R3) (BCKTI 
F AOHASHENTRY 
tt FAO_BUFFER 
BCKT, BEGWIN 

7$ 
-(SP) 
BEGWIN, BCKT, RO 
@8(R3) (BCKT) 

F AOHASH 
#2, FAO_BUFFER 
#3, SCRSPUT_SCREEN 
BCKT 


4$ 
#1, RO 


1620, 
1621, 


- 


<- 
oD 


2 
2 1s Sep-1984 :07 VAK=11 s-32 V Page 45 
v04= display_header 14-Sep-1984 3: 35:9 DISK$V nen TER: lak’ See DUMP .B32;1 “ (22) 
; g 9 16 i ZSBTTL ‘display_header'; 
; 9 ¢ 1629 ROUTINE display_header = 
Ss. 1630 l+e¢ 
> 926 1631 : 
; 925 16 ¢ ‘ Dump VBN 1, the Library header. 
3 358 16 : 
. 9 7 1634 leon 
; 928 1635 BEGIN 
3 363 1636 LOCAL status; 
; 950 1637 status = dump_block( .lbr$gl_contre>'"lbr$l_hdrptr] ); 
: +} 1638 RETURN .status 
; 932 1639 END; 
0000 00000 DISPLAY_HEADER: 
-WORD Save nothin 3 1o¢9 : 
50 0000G CF p00 0000 MOVL ARPES FONT OL, RO > 1637. ; 
OA AO DD 0000 PUSHL 10(RO) : ° 
FDDC CF 01 FB QOOOA CALLS #1, DUMP_BLOCK 3 ° 
04 0000F RET ; 1639 : 


; Routine Size: 16 bytes, Routine Base: S$CODE$ + 0879 


3s 935 1640 2 


Be Se Se Oe Se See 
EEO EO TT Tse 


| > 2 
LBR_DUMP 16-Sep-1984 01:48:07 VAX-11 Bliss<-32 V4.0-74 Page 46 
802000 up 19-88-1382 9339539 DL EKSVMEMASTERSCLBR SRCIDUMP.B32: 1 (23) 
> 935 1641 XSBITL ‘up’; 
:; 936 1006 
: 937 164 ROUTINE up (bucket, entry) = 
; 938 1644 leo4 
; 939 1645 ‘ 
; 940 1968 : Decrement the current bucket by one and re-display the cache 
; 941 164 : entry Lists for the current bucket and the bucket after the 
; 94 1648 : current bucket. Update the display of the hash window around 
; ot 1003 } the current bucket. 
; 945 1651 : bucket: address of global longword containing current bucket 
5 ok 163¢ } entry : address of global current offset in cache entry List 
; 948 1654 l-<= 
: 949 1655 BEGIN 
: 950 1656 IF ..bucket NEQ first_bucket THEN 
: 951 1657 ebucket = ..bucket = 1; 
3 926 1658 display_hash (..bucket); 
; 95 1659 3 display_entry_1 (..bucket, ..entry); 
; 954 1660 3 avsplay entry. (..bucket + 1, first entry); 
: 955 1661 3 — block(0); 
; 956 1906 3 RETURN true; 
; $57 16635 2 END; 
0004 00000 UP: -WORD Save R2 : 164 
52 04 AC 00 00002 MOVL BUCKET, R2 : 165 
62 rE 00006 TSTL (R2) : 
OS 13 00008 BEQL 1$ 3 
62 D7 OOO0A DECL (R2) : 1657 
62 DD QOOOC 1$: PUSHL (R2) : 1658) 
FF5B CF 01 FB OO 00F CALLS #1, DISPLAY_HASH : 
08 BC DD 0001 PUSHL @ENTRY : 1659. 
62 DD 00016 PUSHL (R2) : 
FDOF CF 02 FB 00018 CALLS #2, DISPLAY_ENTRY_1 ; 
7E 04 00010 CLRL -(SP) : 1660 
7E 62 01 C1 QOO1F ADDL3 #1, (R2), -(SP) : 
FD12~=sCF 02 FB 00023 CALLS #2, DISPLAY_ENTRY_2 ; 
7E 04 00028 LRL -(SP) 3: 1661 
FDAC CF 01 FB Q002A CALLS #1, DUMP_BLOCK : 
50 01 00 Boe MOVL #1, RO : 166 
04 000352 RET 3 166 


; Routine Size: 51 bytes, Routine Base: S$CODES + 0889 


: 961 
: 96 
: 9 


ROUTINE down (bucket, entry) = 
lees 


2 

2 
: Increment the current bucket by one and re-display the cache 
: entry lists for the current bucket and the bucket after the 

§ : current bucket. Update the display of the hash window around 
: the current bucket. 


oo 

oa 

im 
ot 
AAAS 
SNA AAAAO 
—OOONOus 


ie 
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; 96 167 ‘ 
; 96 1678 : bucket: address of global longword containing current bucket 
; 968 1674 : entry : address of global current offset in cache entry List 
> 969 1675 : 
; 970 1676 teed 
s 97) 167 BEGIN 
s 87 1678 IF ..bucket LSS Last bucket THEN 
3 697 167 ebucket = ..bucket + 1 
: 974 1680 
; 975 1681 ebucket = Last_bucket; 
; 976 1oR¢ display_hash (..bucket); 
; 977 195 display_entry_1 (..bucket, ..entry); 
> 978 1684 cssplay ene 2 (..bucket + 1, first_entry); 
; 979 1685 — block(0); 
; 980 1686 RETURN true; 
; «981 1687 2 END; 
0000 00000 DOWN: .WORD Save nothin : 1665 
0000007F 8F 04 BC D1 00002 CMPL @BUCKET, #127 : 1678) 
05 18 QOOOA BGEQ : 
04 BC 06 O000C INCL @BUCKET 3; 1679) 
05 11 QO00F BRB 3 
06 «BC 7F 8F 9A 00011 1$: MOVZBL #127, @BUCKET : 1681) 
04 BC DD 00016 2$: PUSHL @BU : 1682) 
FFID = =CF 01 FB 00019 CALLS #1, DISPLAY_HASH : | 
08 BC ODD OOOIE PUSHL @ENTRY : 1683) 
04 BC DD 00021 PUSHL a@BUCKET : 
FCDO =sCCF 02 FB 00024 CALLS #2, DISPLAY_ENTRY_1 : | 
7E D4 00029 CLRL_ (SP) > 1684 | 
7E 04 BC 01 C1 0002B ADDL3 #1, @BUCKET, -(SP) 3 
FCD2—sCCF 02 FB 00030 CALLS #2, DISPLAY_ENTRY_2 : 
7E D4 00035 CLRL -(SP) 3 1685 | 
FD6C CF 01 FB 00037 CALLS #1, DUMP_BLOCK : 
50 01 pO 0003Cc MOVL #1, RO : 1686, 
04 0003F RET 3 


; Routine Size: 64 bytes, Routine Base: S$CODE$S + O8BC 


; 98 1688 $ 

; 1689 ROUTINE right (bucket, entry) = 

3: 6984 1690 2 !+++ 

; «985 1691 § ! 

; 986 169 ‘ Increment the current entry by one and re-display the cache 
; Hf 1937 entry list for the current bucket. 

: 989 1695 : bucket: address of global longword containing current bucket 
; 990 1696 : entry : address of global current offset in cache entry List 
; «991 1697 } 

; 99 1698 leon 

; WwW 1699 BEGIN 

3 994 1700 entry = ..entry + 1; 

; «995 1701 display_entry_1 (..bucket, ..entry); 
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LBR_DUMP 16-Sep-1984 01:48:07 VAX=-11 Bliss-32_v4.0-74 Page 48 LBI 
ibe =000 up aaa 1 93:95:95 DE SKSVMBMASTERSCLBR SRCIOUMP.B32; 1 » (23). v0 
; 996 170 dump _block(0); : 
997 1508 ; RETURN true; 
998 1704 END; ‘ 
0000 00000 RIGHT: .WORD Save nothing ; 1689. : 
08 BC 06 00002 INCL @ENTRY : 1700) : 
08 BC DD 00005 PUSHL @ENTRY 3: 1701) ; 
04 BC DD 90008 PUSHL aBUCKET ; : 
FCA9 CF FB 00008 CALLS #2, DISPLAY_ENTRY_1 : : 
: 7E 04 00010 CLRL -(SP 3: 1702) ‘ 
FOS1 = CF 01 FB 00012 CALLS #1, DUMP_BLOCK 3 ‘ 
50 01 00 00017 MOVL #1, RO : 1703 : 
04 OOO1A RET > 1704. : 
; Routine Size: 27 bytes, Routine Base: $CODE$S + O8FC ‘ 
: 
; .999 1705 2 ; 
: 1000 1706 2 ROUTINE Left (bucket, entry) = : 
: 1001 1707 2 !+#++ : 
3 1008 1708 2! : : 
; 100 1709 2! Decrement the current entry by one and re-display the cache : 
; 1 rN? § } entry list for the current bucket. | ‘ 
; 1006 7i2 2! bucket: address of global longword containing current bucket . 
: 1007 1713 2! entry : address of global current offset in cache entry List ‘ 
; 1008 1714 2! 
: 1009 1715 § leon 
: 1010 1716 BEGIN 
: 1011 1717 3 IF ..entry NEQ 0 THEN 
: 101¢ 1718 3 sentry = ..entry - 1; 
; 101 1719 3 display_entry.! (, -bucket, --entry); 
3: 1014 1720 3 dump_block(0); 
: 1015 1721 3 RETURN true; 
: 1016 1722 END; 
| 
0000 00000 LEFT: «WORD Save nothing : 1706 
50 08 aC 00 00002 MOVL ENTRY, RO 3 1717 
60 rf 00006 TSTL (RO) 3 
06 13 00008 BEQL 1$ : 
60 D7 OOO0A DECL (RO) : 1718 
60 0D O000C 1$ PUSHL (RO) 3: 1719 
04 BC DD QOO0E PUSHL ques 3 
FC88_—SsCF 02 FB 00011 CALLS #2, DISPLAY_ENTRY_1 : 
7E D4 00016 CLRL. = (SP) : 1720 
FD30—s« CF 4 FR 0018 CALLS #1, By? BLOCK 3 
50 1 00 Q001D MOVL #1, R 3 1721 
04 00020 : 1722 
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display_help 
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blank screen 
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p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
p_desc 
! Routine display_help 
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hel 
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play_help 


-Page 


put_screen 


Help by printing the valid commands 
put_screen 


screen 
screen 
screen 
screen 
screen 
screen 
screen 
screen 
“screen 


put_screen 
put_screen 


put 


“screen 
screen 


rue; 


E 


put_screen 
ut 
N 


put 
put 
put 
put 
put 
put 
put 
put 
put 


ZSBTTL ‘display_help'; 
ROUTINE dis 

i 

° 
scr$erase 


BEGIN 
++4¢ 
OCAL 

p 

p 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 
scrs 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 
scr$ 

RETU 
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LBR_DUMP 16-Sep-1984 01:48:07 VAX=11_BLiss-32_v4.0-74 Page 51. LB 
VO4000 display_help 12-Sep-1984 13:39:37 DTSKSVMSMASTERSCLBR SRCSDUMP. B32;1 (24), vos 

FB 00031 CALLS #3, SCRSPUT_SCREEN F | : 

DD 00034 PUSHL HLPCOL $1743) : 

D6 00086 INCL HLPLIN : | : 

cf OF OOO8A PUSHAB HELP.DESC_2 : 
3 FB 0003 CALLS, Se, SCREPOT SCREEN : | ; 
DD 00041 PUSHL  HLBCOL : 1764) ; 

g D6 00043 INCL HLPLIN : | : 
$2 DD 00045 PUSHL_ HLPLIN : : 
CF 9F 00047 PUSHAB HELP DESC 3 : ; 
03 FB 00048 CALLS SCRSPOT_SCREEN : | ; 
23 BD OOOdE PUSH HLBCO ; 1745 | ; 
D6 0005 INCL HLPLIN : | ; 

$2 dD 00052 PUSHL HLPLIN : | ; 
CF 9F 00054 PUSHAB a DESC 4 : ; 
03 FB 00058 CALLS #3, SCRSPOT_SCREEN : | : 
53 DD 00058 PUSHL ; 1746 : 
32 D6 00050 INCL ota. ; : 
52 DD 0005F PUSHL  HLPLIN. : ; 
CF 9F 00061 PUSHAB nth : ; 
03 FB 00065 CALLS schePOt SCREEN : ; 
53 DD 00068 PUSHL ; 1747 : 
32 D6 0006A INCL HEPLIN : : 
52 DD 0006C PUSHL | HLPLIN. : | : 
CF 9F 0006 PUSHAB HELP D ; | ; 
03 FB 0007 CALLS scRsPOt _SCREEN ; | : 
53 DD 0007 PUSHL HLBCO ; 1748 : 
52 06 00077 INCL HEPLIN : ‘ 
52 DD 00079 PUSHL LIN ; | : 
CF 9F 0007B PUSHAB HELP DESC 7 ; | : 
03 FB 0007F CALLS #3, SCRSPOT_SCREEN : : 
53 DD 00082 PUSHL HLPCOL : 1749 ; 
52 D6 00084 INCL HLPLIN ; ; 
52 DD 00086 PUSHL_ HLPLIN ; : 
CF 9F 00088 PUSHAB ist DESC 8 ; : 
03 FB 0008C CALLS SCRSPOT_SCREEN : : 
53 DD 0008F PUSHL HPC ; 1750 ; 
52 D6 00091 INCL HLEPLIN : : 
52 DD 00093 PUSHL N ; 3 
CF 9F 00095 PUSHAB a DESC 9 ; ; 
03 FB 00099 CALLS 43, SCRSPOT_SCREEN : ; 
53 dD 0009¢ PUSHL ; 1751) : 
32 D6 0009 INCL tpt : | : 
cf SF Oo, PUSHAB HELP. DESC pee ; 
03 FB OOOAG CALLS i schePOr SCREEN : | : 
DD 000A9 PUSHL  HLPCO ; 1752 ; 

22 D6 O00AB INCL” HLPLIN : | : 
52 DD QOOAD PUSHL | HLPLIN : | : 
CF 9F OOOAF PUSHAB HELP, DE ; : 
93 FB 00083 CALLS scRePOT SCREEN 2 : 
DD 00086 PUSHL HLBCO ; 1753 | ; 

32 D6 00088 INCL HEPLIN ’ | : 
F 3 dooBe PUSHAB HELP.DESC_ 12 
05 FB ooo CALLS #83 SCRSPOT_SCREEN 2 | : 
DD 000¢ PUSHL HLPCOL > 1754) i 


i 2 | 
LBR_DUMP 16-Sep-1984 01: VAX-11 Bliss-32 V4.0-74, Page 52. 
v04=000 display_help 1a-Sep-1 1984 12:3 $3: $3 DISKSVMSMASTER:CLBR.SRCJOUMP.B32;1 9° 28) | 
53 D6 0¢5 INCL HLPLIN : | 
DD C PUSHL ty § 
0000" CF 9F 000C9 PUSHAB HELP D : | 
64 ; FB 000CD CALLS schaPOT SCREEN : | 
DD 00000 PUSHL  HLPCO : 1755) 
28 D6 002 INCL NEPL IH ; 
DD 0 D4 PUSHL HLPLIN : | 
0000" CF 9F 00006 PUSHAB gLP DESC_14 : | 
64 FB OOODA CALLS #3, SCRSPOT_SCREEN : 
DD 0 DD PUSHL HLPCOL + 1756 
D6 OOODF CL. s~HLPLIN : 
pp E PUSHL HLPLIN : 
0000" CF 9F OO0E PUSHAB HELP DESC_15 ; 
64 3 FB E CALLS , SCRSPOT_SCREEN ; 
0 1 0 QOEA MOVL * RO + 1757 
04 OO0ED RET : 1758 


; Routine Size: 238 bytes, Routine Base: $CODE$ + 0938 


; 1054 1759 2 


es 
do 
=3 


K 2 
16-Sep-1984 01:48:07 VAX=11 Bliss-32 V 
main body of LBRSDUMP_CACHE 10231984 9:95:95 DISKSVMSMA 


: 105 1760 ZSBITL ‘main body of LBRSDUMP_CACHE'; 

: 1989 1761 : : 

3 a8 1706 l++4 

; 1059 176 ‘ Begin body of GLOBAL ROUTINE Lbr$dump_cache ( ) 

: 1060 1764 lees 

; 1061 1765 

; 1996 1706 OWN 

: 106 176 scr strng : countedstring watt ) 

3: 1064 1768 scri32_strng : countedstring ('(? hC23;24r"); 

3; 1065 1769 

; 1066 1770 LOCAL 

; 1067 1771 continue, 

: 1068 a) scr80_desc : BBLOCK C scSe. 7 grin 

> 1069 177 scri32_desc : BBLOCK dsc ini, 

; 1070 1774 esc : BBLO K bggede 5: 

3; 1071 1775 buf : UEC TOR 20 ae: 

: 1S%6 1776 bucket, 

3; 107 1777 entry; 

3: 1074 1778 BIND 

; 1075 1779 2 context = he oh control Clbr$l ~Cixperd BBLOCK, 

; 1076 1780 cache = .contex Cepseh -cache] : 

: er 44 2 command = buf(0J : 

3; 1079 1783 SWITCHES NOOPTIMIZE; keep compiler from steshing auey bufC0] before the 
3 1980 ree ! the call to scr$get_screen(desc 

3 ips 1786 IF cache EQL 0 THEN RETURN true; ! there is no cache 

3; 1084 1788 CHSFILL (0, pects s_bln, scr80. dese): 

: 1085 1789 scr? _desc Cdsc$u_Tength ~scr80_strng £0}; 

3; 1086 1790 scr80-des dscSa- pointer] = scre0., yeteng 

3; 1087 1791 CHSFILL (0,dsc$c_s_bln, scri32_d 

: 1088 ie aoe _desc Cdsc$w length) = ecser| gb. strng 933 

3 94 fa £ scri32_desc Cdsc$a_pointer) = scr132-strng 

3; 1091 1795 Bicker"= 0 C} tetput output (scr132_desc) ); 

; 1092 1796 ucket = T Set global current bucket to first bucket in Hash table 
; 1093 1797 entry = A i Set global entry pfteet in Linked List of cache entries 
3 1094 1798 ! first entry in the List. 

3; 1095 1799 scr$erase_page (1,1); ! Start out with a shiny blank screen 

3; 1096 1800 display_hash (,.bucket); ! Display the window around the current hashtable bucket 
; 1097 1801 display_bucket [buckets suerte ' | Oisetey the Linked List of cache entries for 
3; 1098 1306 ! for the current bucket and one after current. 
3; 1099 130 cur_vbn = 1; ' set for first block 

: 1100 1804 desc Gsc$ur length) = 20; ' Initialize input command buffer. 

; 13) 1302 desc Cdsc$a_pointer] = buf; i Initialize input command buffer. 

: 1108 1807 continue = true; ! Continue obtaining and executing command requests 
: 1104 1808 WHILE .continue DO ! Until a Quit or invalid command is entered. 

3; 1105 1809 BEGIN 

3 1106 1810 perform ( scr$set_cursor(input_Lin, in ut_col) ); 

3; 1107 1811 erform ( scr$get escreen(desc)” 3 ead screen, to obtain command 

3; 1108 318 4 If (.command GEQ 2x'41") AND ( ‘onmand LEQ %x°SA' 

> 1109 181 THEN command = .command + %X'20'; 

; ny ' I SELECTONE command OF ! Take aha. action 

3 1112 Ble ZX'3F°)] : display_help(); ! 2? Help with the commands 


4.0-7 5 
STER: clar. SRC DUMP .B32;1 (25 


LBF 
vO4 


2 | 
LBA -pURP 16-Sep-19 4 03:49:97 yee dvataartens V4.0=74 Page 54) 


eader 
' "L'ocate a vbn in the cache 
ign Otete von ( false, bucket, entry) 


BEGIN 
display_hash (.bucket); 
Eigosey pucker (.bucket,.entry); 


display_header(); splay ‘H 


main body of LBRSDUMP_CACHE 14-Sep-1984 SMASTER: CLBR.SRCJDUMP.B32;1 (25) 
"6E° up (bucket, entry); ! "North 
Keg down (bucket, entry); ' *S*outh 
ax'§ "2 3 trent (bucket, entr 5; ' "E*ast 
ZX'77') :) Left (bucket, entry 3 ' "Wrest 
2X'64'J] : display_block(.bucket,.entry);! "D' isplay block 
eee i 
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END; 
(%x'67'] : BEGIN ! "Get a vbn and cache it 
IF locate_vbn ( true, bucket, entry) 
THEN 
BEGIN 
display_hash (.bucket); 
display_bucket (.bucket,.entry); 
END; 
C%x'6F')] : BEGIN ! "'O'rigin 
bucket = 0; 
entry = 0 


scr$erase page (7,9); 
display hash (.bucket); 
e\splay pucker (.bucket,.entry); 


[%x'62'] : BEGIN ' "Back 
entry = 0; 
scr$erase_page (1,1); 
display_hash (.bucket); 
display_bucket (.bucket,.entry); 
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END 
[%x'72'] : BEGIN ! "R'efresh the screen 
scr$erase_page (1,1); 
display_hash (.bucket); 
2.50 '8y bucket (.,bucket,.entry); 
[%x'6A'] : BEGIN ! "J*ump down 
bucket = .bucket + 10; 
display_hash (.bucket); 
? gi\spley bucket (,bucket,.entry); 
j (%x'78') : BEGIN ' ne'x't 
6 IF find_vbn (true, bucket, entry, .cur_vbn + 1) 
64 THEN 
65 BEGIN 
$6 display_hash (.bucket); 
6 display_bucket ‘.bucket,.entry); 
68 END; 
4 END; . 
4 (2x'71'] : continue = false; ' "Q*uit 
re COTHERWISE) : : ’ 
7 BEGIN ' Print the help and quit 


05 
6¢ 33 SF 5B 18 
0D 
72 34 32 38 33 32 5B 18 68 33 SF 5B 18 
OOFC 
57 00000000G 00 9€ 
56 000000006 00 5 
5E 34 C 
50 0000G CF 00 
50 OE AO 00 
50 08 Ad 00 
03 12 
QO1A1 31 
08 00 6E 00 2c 
2c AE 
2C AE 0000" CF 98 
30. AE 0000" CF 9€ 
08 00 6E 00 2c 
24 AE 
24 AE 0000' CF 98 
28 OAE 0000" CF 9E 
24 «AE ODF 
66 gt FB 
49 0 G? 
6— /C 
01 oD 
8) DD 
67 2 FB 
04 AE OD 
FD6C CF 01 FB 
6E— 0D 
08 ag DD 
FIED =CF 8 F 
0000° CF , >} 
1C AE 14 8B 


»PSECT 
00230 SCR80_STRNG: 

-BYTE 
itt ASCII 
00236 -BLKB 
00238 SCR132 -STRNG: 


00239 ASCII 


LBR P 

Vba=000 main body of LBRSDUMP_CACHE 

; 1170 1874 display_help(); 

3 1171 1875 4 cont inué = false: 
: 11% 1 8 3 

3 117 \3 

£1198 1879 

+ 1176 1880 per rtorm (LibSput_output (scr80_desc) ); 
497 1881 5 RETURN true; 

| 1178 1882 1 END; ! “Tbr Sump. cache 
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MOVES 


MOVZBW 
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6-Sep-1984 01:48:07 VAX=-11 Bliss-32 V 
ae 93:99:9 DISKSVMSMASTER: clea. sae DUMP B32; 1 


SOWNS ,NOEXE,2 

5 

geTPAS TORN 

13 
<27>\C23W\<27>\023; 24r\ 


SCODES,NOWRT, 2 
LBRSDUMP CACHE, Save R2,R3,R4,R5,R6,R7 
SCRSERASE_ P 
L BSPUT SOUTPUT. R6 
tangce -CONTROL , RO 
RO)> RO 


(R 
RO), 


(SP), #0, #8, SCRBO_DESC 
Bo st pales £4 , 80880 DESC 


0- SCRBO_D 

(SP) ), Rn. “#8, SCRI 32. DE DESC 
L 
U 
Y 


TRNG, SCR132_DESC 
TRNG#1, SCR132_DESC+4 
PUT OUTPUT 
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z2=O2ze 
Z=enN= 
- 
mun 
a 
PJ 
bad 
mn 
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mn 


; DISPLAY HASH 


ite D1 spLay BUCKET 
#1 R.VBN" 
#26, 
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N 2 | 
LBR_DUMP 16-Sep-1984 01:48:07 VAK=11 Bliss-32 V4.0-74 Page 
yO=000 main body of LBRSDUMP_CACHE 127808- 1382 93:95:97 NT EKSUMEMASTER LGR SRCSDUMP.B32; 1 ° (289 
20 =A 08 AE 9 78 MOVAB BUF, DESC+4 : 1805 | 
5 1 0 7 MOVL #1, CONT INE + 1807 
0 ; 2$: BLBS ¢ NTINUE, > 1808 
01 1 000 BRW : 
7E 18 7D 000 6 3$: MOVO 34, -(SP) + 1810) 
000000006 00 0 FB 0 CALLS #2, SCRSSET_CURSOR : 
OA 5 f 0 39 BLBC STATUS, 4$ : 
10 «AE OOF 0 9 PUSHAB DES + 1811 
000000006 00 01 FB 096 CALLS #1 SCRSGET_SCREEN : 
01 0 9009 4$ BLBS STATUS, 5$ : 
4 OO0A0 RET : 
41 BF 08 AE 91 OA 5$: CMPB COMMAND, #65 + 1812) 
0B iF Ab BLSSU ; 
SA BF 08 AE 91 OO0A CMPB COMMAND, #90 ; 
04 1A OOOAD BGTR $ : 
08 20 80 OOOAF ADD #32, COMMAND : 1813) 
52 08 AE 9A 000B3 6$ MOVZBL COMMAND, R2 + 1814) 
52 91 000B7 CMPB , #63 + 1816) 
07 12 OO0BA BNEQ : | 
FES! CF 00 FB 000BC CALLS #0, DISPLAY_HELP ; | 
BD 11 Q000C1 7$: BRB 3 
6E BF 52 91 000C3 BS: CMPB ss 2, _ #110 + 1817) 
0¢ 12 000C7 BNEQ 9$ ; 
5E DD 000C9 PUSHL SP ; | 
08 AE 9F 000CB PUSHAB BUCKET ; | 
FD90—sCF 02 FB O00¢E CALLS #2, UP F | 
AB 11 0000 BRB ; | 
73S 52 91 00005 98: CMPB se R2, #115 : 1818. 
0¢ 12 00009 BNEQ 10$ ; | 
5E DD 000DB PUSHL SP : 
08 AE 9F 000DD PUSHAB BUCKET : | 
FDB1 CF 02 FB O00E0 CALLS #2, DOWN ; | 
95 11 000E5 BRB : | 
65 8F 52 91 O00E7 108: CMPB sR, #101 > 1819) 
0C 12 OO0EB BNEQ 11$ : 
5E DD OOOED PUSHL SP ; | 
08 AE 9F OOOEF PUSHAB BUCKET ; 
FDDF CF 02 FB 0008 2 CALLS #2, RIGHT ; | 
87 11 OOF BRB ; | 
77 —s«BF 52 91 000F9 118:  CMPB  R2, #119 > 1820 | 
0C 12 000FD BNEQ 12% ; 
5E DD OOF PUSHL SP ; 
08 AE 9F 00101 PUSHAB BUCKET ; 
FDE8 CF 02 FB 194 CALLS #2, LEFT ; 
B6 11 00109 BRB : | 
64 BF 52 9100108 128: CMPB Re #100 + 1821) 
OC 12 0010F BNEQ 136 : 
6E 0D 00111 PUSHL ENTRY ; 
08 AE DD 00113 PUSHL BUCKET ; 
FB96=sCF 02 FB 00116 CALLS #2, DISPLAY_BLOCK F | 
AG 11 0011B BRB : 
68 8F 32 91 0011D 138:  CMPB  R2, #104 + 1822. 
12 1 1 BNEQ ; | 
FD2B. OCF 4 FB ; CALLS #0, DISPLAY_HEADER ; | 
6C oBF 52 91 001 A 14%:  CMPB Re #108 ; 1823 
09 12 0012€ BNEQ 15§ : 
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458 bytes, Routine Base: S$CODE$ + 0A26 


; Routine Size: 


; Lexemes/CPU-Min: 25029 
; poet | Used: 250 pages 
a 


; Compilation Complete 


| LBR_DUMP 1b-se -1984 01:48:07 VAX-11 Bliss-32 V4.0-74 
“¥04=000 main body of LBRSDUMP_CACHE 1-8ep-19 4 03:99:97 TT EKSVMGHASTERSLY BR SRCTOUMP.B32; 1 

5 1179 1883 1 

: 1180 1884 1 END 

> 1181 1885 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: SOWNS 582 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SPLITS 764 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 3056 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

Sey Lr eer Syatels ecoscece Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 14 0 581 00:01.0 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DUMP/OBJ=OBJ$:DUMP MSRC$:DUMP/UPDATE=(ENHS$: DUMP) 

3; Size: 3056 coge + 1346 data bytes 

3; Run Time: 00:55.9 

; Elapsed Time: 01:52.2 

; Lines/CPU Min: 024 


Page 58 


(25) 


<r 


Be Be Be Be Be Se Oe Be OF Se Se SH Se Se Se SH Se SH Se SESH SHES Se oe Se Se Se SH Se Se Se ae SESE SH Se SH Se Se Oe Se Se SH Se SHE Se SHB ee Se BH Oe Oe Oe BH BY 


0197 AH-BT13A-SE > a L EQUIPMENT CORPORATION 
VAX/VMS V4.0 _ ENTIAL -AND PROPRIETARY 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


Aigo AH-BT13A-SE 
vi? VAX/VMS V4.0 


